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I.  INTRODUCTON 
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WAMP  (Wire  Antenna  Modeling  Program)  is  a  general  purpose  frequency 
domain  antenna  modeling  computer  program.  Antennas  of  arbitrary  form 
and  orientation  may  be  modeled  and  analyzed  in  both  free-space  and  in  the 
presence  of  a  conducting  half  space. 

The  WAMP  users  manual  is  written  to  serve  two  purposes.  The  first, 
and  prime  purpose,  is  to  provide  the  user  with  a  basic  working  knowledge 
of  the  program's  input  requirements  and  capabilities.  Examples  will  be 
employed  to  illustrate  the  use  of  the  program.  The  second  purpose  of 
this  manual  is  to  present  a  brief  description  of  the  theoretical  formu¬ 
lation  behind  the  numerical  techniques  used  in  the  WAMP  code. 

Section  II,  which  immediately  follows,  presents  a  brief  development 
of  the  thin-wire  electric  field  integral  equation  (EFIE).  This  is  fol¬ 
lowed  in  Section  III  by  a  description  of  the  numerical  techniques  used 
to  solve  the  EFIE  for  a  segmented  structure,  and  the  methods  employed 
to  model  an  antenna  in  the  presence  of  an  imperfectly  conducting  half¬ 
space.  (A  listing  of  the  program's  subroutines  and  their  function  is 
provided  in  Appendix  A). 

Sections  IV,  V,  AND  VI  are  devoted  to  applications.  Section  IV 
describes  in  detail  the  program  input  parameters  needed  to  model  an 
antenna  structure.  Section  V  contains  a  series  of  illustrative  examples 
designed  to  demonstrate  the  WAMP  program,  and  Section  VI  concludes  with 
a  section  on  modeling  guidelines  and  special  calculations. 

II.  THEORETICAL  DEVELOPMENT  OF  THE  ELECTRIC  FIELD  INTEGRAL  EQUATION 

Discussion  of  the  Boundary  Value  Problem.  The  solution  to  Maxwell's 
equation  which  satisfies  specified  behavior  of  the  fields  at  given 
locations  or  boundaries,  requires  treatment  of  a  boundary  value  problem. 
Classically,  such  problems  have  been  successfully  treated  only  for  special 
boundary  surfaces  to  which  the  method  of  separation  of  variables  could 
be  applied.  This  eliminated  complex  surface  shapes  from  consideration 
and  restricted  the  three-dimensional  solutions  to  the  sphere  and  various 
simple  sphere  modifications.  This  situation  resulted  principally  from 
inability  to  calculate  the  eigenfunctions  for  the  various  special  geom- 
Qtries,  although  considerable  progress  has  been  made  in  this  area  in 
recent  years  due  to  availability  of  numerical  techniques  and  more  sophist¬ 
icated  computers.  An  additional  problem  arises  in  these  special  coordinate 
systems  since  the  boundary  condition  equations  may  be  coupled,  so  that  a 
solution  of  an  infinite  matrix  is  required,  in  principle  at  least,  rather 
than  the  term-by-term  solution  which  is  encountered  for  the  spherical 
case.  At  any  rate,  the  shapes  to  which  the  classical  analysis  are  re¬ 
stricted  force  the  use  of  a  different  approach  to  problems  which  involve 
complex  geometrical  shapes. 

Integral  Equations  Formulation.  Because  of  the  problems  cited 
above,  general  three-dimensional  boundary  value  problems  require  a 
basically  numerical  approach.  This  approach  usually  begins  from  an 
integral-equation  viewpoint  rather  than  the  differential  equation 
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approach  implicit  in  the  classical  method.  There  is,  however,  no  unique 
integral  equation  formulation  for  a  given  problem,  so  some  leeway  in 
treatment  is  afforded  at  the  outset.  For  reasons  to  be  clarified  later, 
our  attention  is  restricted  here  to  the  electric  field  integral  equation 
(EFIE).  As  a  starting  point,  the  electric  field  E  due  to  a  volume  current 
distribution  3  is  written  by  means  of  Green's  dyadic  as 

E(r°)  J (?)  •  G(r,fQ)  dV  (1) 

V 

where  rg  and  r  are  the  observation  and  source  points,  respectively, 
and  theuGreen's  dyadic  is  expressed  in  the  usual  notation  as 

G(r ,rQ)  =  -(1/4  tt )  [I  +  (1/k2)  W]  g 


where 


g  =  exp(-ik|r-?0|)/|(?-r0)| 


and  I  is  the  unit  second-rank  tensor.  The  suppressed  time  variation 
is  exp(iut)  with  to  the  radian  frequency.  The  plane  wave  propagation 
constant  is  k,  and  is  related  to  Q  and  uQ,  the  permittivity  and 
permeability  of  free  space  respectively,  and  to  by 


k 


When  the  current  distribution  is  limited  to  the  surface  of  a 
perfectly  conducting  body,  Equation  (1)  becomes 


E(r0) 


K(r) 


•  G(r,rQ)  dA 


(2) 


with  K  the  surface  current  density.  If  this  surface  current  is  induced 
by  an  incident  electric  field  El,  then  an  integral  equation  for  the 
unknown  surface  current  K  can  be  obtained  from  Equation  (2)  and  the 
boundary  condition  that 


fi(rQ)  *  [Es('r0)  +  r.r(f0)3  =  C  (3) 

with  ft(r0)  a  surface  normal  at  rfl  and  Es  th§  scattered  field  of  the 
individual  current  distribution.  Equating  Es  of  Equation  (3)  with  E 
of  Equation  (2)  leads  to 
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-  s<f0) 


E'(f0) 


r  r 

JIwUq  K(r)  •  G(r,rQ)  dA 


(4) 


Tjnn  Wire  Approximation.  Upon  restricting  our  attention  to 
circular  cross-section  bodies  of  small  diameter  compared  with  the 
wavelength,  the  azimuthal  current  may  be  neglected,  and  Equation  (4) 
becomes 


fi(ro)  x  eI(^o)  =  "(^0)  x  4 7  J  /  f1 


CTO 


K$(r) 


[s  +  g(r,rQ)}  dA  (5) 


where  s  is  the  unit  tangent  vector  at  r  pointing  in  the  direction  of 
the  current.  A  scalar  integral  equation  for  the  current  is  obtained 
by  taking  the  dot  product  of  Equation  (5)  with  the  unit  tangent  vector 
Sq  at  the  observation  point  r^  as 


§0  •  ^  =  wfjiu>u 0  M?0)[§  ‘  *0+  (§  '  9(r,rQ)  dA 

^  k 

If  the  assumption  is  now  made  that  the  surface  current,  K  is 
independent  of  the  azimuthal  variable,  Equation  (6)  can  be  written 


^  (r0)  =  4tt 


r 

i 

s 


aiYo 


1  o 

V  77  siTs-l  9(f/o>  d*ds 


where  a  is  the  wire  radius  and  the  s  integration  is  over  the  entire 
length  of  wi re. 


(6) 


(7) 


A  final  approximation  is  that  the  current  may  be  realistically 
represented  as  a  filament  of  strength  I.(s)  =  2ra  Ks(s)  flowing  on  the 
wire  axis  while  the  field  is  evaluated  on  the  wire  surface,  allowinq 
Equation  (7)  to  be  written  as 


SV  E1^)  =  <iuV4ir)  /  Hs)[s 


1 

S°  +  k2 


_J_2_ 

■JSDs, 


]  g(r,rQ)  ds 


(8) 


where  |r  -  rQ|  is  now  measured  from  the  wire  axis,  or  source  point, 
to  the  observation  point  on  the  wire  surface,  which  can  thus  never  be 
closer  than  the  wire  radius  a.  By  considering  the  current  as  a  tubular 
°n  the  Wlre  axl*  while  evaluating  the  electric  field  on  the  wire 
surface,  one  can  resolve  the  ambiguity  in  the  azimuth  involved.  The 
form  of  Equation  (8)  is  not  changed  using  this  convention,  but  the 

°f  tan9®ntial  field  evaluation  is  simplified  when 
non-parallel,  non-planar  wires  are  considered. 
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III.  METHOD  OF  NUMERICA1  SOLUTION 


by 


A  numerical  solution  to  an  integral  equation  may  be  undertaken 

h^nfi  me^h°d  of  moments.  This  is  a  well-founded  mathematical  technique 
briefly  stated  as  a  method  for  finding  the  unknown  by  forcing  the 

below*"9  ecIuat1on  wbich  is  solved  by  the  method  of  moments  described 


w  ct^°!? . t0, lri near  System  (Collocation)  -  Equation  (8)  may  be 

written  symbolically  as:  ' 


L(f)  =  g 


(9) 


fonowing  Harrington's  (1968)  notation.  The  solution  of  Equation 
•  v  Equation  9)  is  obtained  by  the  method  of  moments.  An 

intuitive  approach  to  solving  Equation  (9)  for  the  unknown  function 
r  is  to  set  f  equal  to  a  constant  f.-  within  N  subintervals  of  the 
domain  of  L,  and  to  require  Equation  (9)  to  be  satisfied  at  N  points 
over  the  range  of  L,  thus  acquiring  N  equations  in  the  f,-  unknowns, 
his  is  a  specialized  application  of  the  method  of  moments  which  is 
more  generally  written  as  follows.  Let 


f 


with  the  basis  functions  f 
(9)  may  be  written  n 


defined  in  the  domain  of  L  so  that  Equation 


(10) 


Then,  with  the  set  of  weighting  functions  w  , 
L,  the  inner  product  is  formed  as  m 


defined  in  the  range  of 


,oi  <wm>  Lff  )> 
■  n  m  n 1 


<w 


iir- 


On 


where  m  =  1 
as 


2,  3,  ...  N,  Equation  (11)  can  be  written  in  matrix  form 


][*  ] 

nJ 


(12) 


mn 


vL<V 


where 
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and 


m 


•w  ,q 

m  s 


and  the  matrix  Gmn  is  referred  to  in  this  case  as  the  structure 
inverse  of  Gmn  exists,  then  the  an  can  be  found 


matrix.  If  the 


and  thus  the  function  f  which 
specified  source  function  s 


is  the  desired  solution,  for  any 


m* 


The  proper  choice  of  weighting  functions  and  basis  functions,  as 
asuth®  subsectioning  of  the  domain  of  L  is  not  an  obvious  one 
Although  there  is  some  leeway  in  the  matter,  careful  consideration  of 
the  physics  of  the  problem  and  the  nature  of  the  expected  solution 
will  show  that  some  representations  for  the  fn  will  be  more  efficient 
than  others  in  terms  of  computer  time  and  accuracy.  Constant,  linear, 
quadratic,  trigonometric  and  Fourier  series  have  all  been  used  for 
this  role.  The  weighting  functions  have  generally  been  more  restricted 
in  choice  than  f_.  The  special  case,  w_  =  f  ,  is  referred  to  as 
balerkin  s  method  (see,  for  example,  Harrington,  1968).  More  often 
the  weights  are  6-functions,  a  method  referred  to  as  collocation,  so 
that  the  inner  product  (Eq.  11}  merely  becomes  the  sequence  of  values 
vVm  and  gm-  These  are »  respectively,  the  tangential  electric  fields 

nkat  observation  P°int  m  and  the  tangential  inci- 
Jjjf  ?!?f^c.fieljua5  ?bservation  point  m.  It  is  interesting  to  note 
that  5ale^kln.s  method  is  equivalent  to  the  Rayleigh-Ritz  variational 
method.  Harrington  (1968)  thoroughly  discusses  the  method  moments. 

.  — uTT.enT  Expans i on  -  The  WAT-1  P  thin-wire  program  employes  the  collo¬ 
cation  method  with  constant,  sine  and  cosine  terms  for  the  f_  segment 
or  current  basis  function,  i.e.,  n  y 


Ks) 


_Zui(s)[Ai  +  Bi  sin  k(s-s.)  +  C.  cos  k(s-s.)]  - 


N 

z 

i  =  l 


Ui(s) 


Ji(s 


03) 


this  sinusoidal  cur^t  ex^nsio  b,,?  ^  'U,”,ber  °f  reasons  for  usi"5 

a^-ssrss  diF 
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It  is  not  necessary  to  employ  the  integral  equation  itself  to 
find  the  extra  unknowns  introduced  by  the  sinusoidal  expansion.  Two 
of  the  three  constants  for  each  segment  may  be  obtained  by  requiring 
the  current  on  adjacent  segments  to  satisfy  some  specified  mutual 
conditions.  The  extrapolated  current  from  a  given  segment  must  match 
the  center  current  values  on  two  adjacent  segments  to  satisfy  the 
required  condition  for  two-wire  junctions  in  the  thin-wire  program. 
Junctions  of  three  or  more  wires  are  handled  in  similar  fashion 
(Maxum,  et  al ,  1969). 

The  sinusoidal  current  expansion  appears  to  make  the  system  of 
equations  resulting  from  collocation  somewhat  more  involved,  but  the 
required  computer  time  is  not  significantly  increased  when  compared 
with  the  same  number  of  current  unknowns  without  using  the  sinusoidal 
expansion.  Other  current  expansion  functions  -  linear,  quadratic, 

Fourier  series  -  could  be  used  in  place  of  the  constant-sine-cosine 
expression,  but  this  particular  expansion  has  a  number  of  additional 
advantages  over  the  other  possibilities  mentioned.  For  instance,  a 
solution  for  the  current  to  a  specified  accuracy  for  a  half-wave 
dipole  scatterer  and  antenna  requires  the  fewest  current  segments 
using  the  sinusoidal  expansion  (Neureuther,  et  al ,  1968).  This 
advantage  can  be  expected  tc  carry  over  to  more  complex  geometries. 
Second,  the  solution  will  more  accurately  exhibit  the  required  depend¬ 
ence  on  wire  radius  (Andreason,  1968)  because  the  constant  current  term 
produces  infinite  tangential  electric  field  on  the  current  axis,  as 
opposed  to  the  sine  and  cosine  terms  which  do  not. 

Third,  the  parallel  and  perpendicular  electric  field  components 
(due  to  the  sine  and  cosine  current  terms)  and  the  radial  field 
components  (due  to  constant  current  terms)  may  be  analytically  evaluated. 
This  eliminates  the  necessity  for  extensive  numerical  integration  to 
evaluate  all  the  elements  in  the  coefficient  matrix  Gmn.  Only  the 
tangential  electric  field  excited  by  the  constant  current  terms  requires 
numerical  integration  and  this  is  handled  by  applying  a  Romberg  variable- 
interval  width  technique  (Miller,  1970)  to  the  difference  integrand. 

Calculation  of  the  Structure  Matrix  -  It  is  worthwhile  to  discuss 
here  the  form  of  the  matrix  elements  which  result  from  applying  the 
method  of  collocation  to  the  integral  Equation  (8).  Each  entry  G .•  ,• 
in  the  structure  matrix  represents  the  tangential  electric  field  at 
observation  point  i  on  the  structure  produced  by  unit  current  flowing 
on  segment  j.  The  boundary  condition  on  the  tangential  electric  field 
is  enforced  at  each  observation  point.  The  collocation  method  of  solving 
the  integral  equation  is  thus  basically  one  of  calculating  electric  field 
components  at  specific  points  due  to  the  induced  current  on  the  structure. 

It  was  stated  that  the  thin-wi  re  approximation  involves  the  explicit 
assumption  that  the  effects  of  azimuthal  currents  can  be  neglected  in 
comparison  with  those  of  axially  directed  currents  and  that,  in  addition, 
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the  cylindrical  tube  of  axial  current  has  no  azimuthal  dependence.  The 
former  assumption  allows  us  to  consider  only  one  current  component 
rather  than  two,  while  the  latter  provides  partial  justification  for 
reducing  the  surface  integral  to  a  line  integral.  It  may  be  deduced 
from  an  examination  of  Equations  (7)  and  (8),  however,  that  even  where 
Ks  is  independent  of  <p  the  kernel  of  the  integration  equation  depends 
in  general  upon  both  <p  and  s.  However,  the  integrand  is  independent  of 
<t>  in  special  case  where  the  observation  point  is  located  on  the  axis 
of  a  linear  tube  of  current,  and  the  $  integration  of  Equation  (7)  may 
be  replaced  without  approximation  by  the  factor  2v. 

We  choose  to  locate  the  observation  points  where  the  tangential 
electric  field  is  to  be  calculated  on  the  axis  rather  than  on  the  surface 
of  each  wire  segment.  The  <p  integration  in  Equation  (7)  is  thus  exact 
for  the  self-field  as  well  as  the  mutual  fields  for  all  current  segments 
having  a  common  axis.  In  addition,  the  possible  ambiguity  involved  in 
evaluating  the  incident  field  over  a  2tt  variation  in  $  on  the  wire  surface 
is  resolved.  As  a  final  point,  the  observation  point  is  always  at  least 
a;  far  as  the  wire  radius  from  the  source  point. 

When  the  mutual  fields  of  non-axially  aligned  current  segments  are 
required,  the  <*>  integration  is  not  so  simply  performed.  And  if  no  approx¬ 
imation  were  used,  the  0  integration  would  require  numerical  evaluation. 
The  most  obvious  approach  is  to  then  consider  the  tubular  current  source 
to  approximate  a  linear  filament  on  the  wire  axis,  a  procedure  which 
again  replaced  the  0  integration  by  a  2-r  factor.  Unfortunately,  this 
approximation  eliminates  the  influence  of  the  wire  radius  from  all  mutual 
field  terms  on  the  phase  change  and  geometrical  attenuation  of  the  field 
caused  by  the  separation  of  the  source  and  observation  points. 

An  alternative  to  the  above  method  is  replacement  of  the  current  tube 
by  a  current  filament  which  is  not  located  on  the  wire  axis  but  is  dis¬ 
placed  in  distance  from  it  by  the  wire  radius.  The  direction  of  displace¬ 
ment  is  perpendicular  to  the  plane  of  the  wire  axis  and  the  line  joining 
the  observation  point  and  wire  axis  midpoint  (the  observation  point  for 
the  self-term  field).  The  geometry  of  this  method  is  shown  in  Figure  1. 

To  summarize  briefly,  the  surface  integral  is  reduced  to  a  line 
integral  by  neglecting  azimuthal*  currents  and  azimuthal  variation  of 
the  axial  current.  Self-field  terms  are  calculated  with  the  observation 
point  on  the  axis  of  a  cylindrical  current  tube,  while  mutual  field 
terms  are  calculated  at  the  same  observation  point  with  the  current  repre¬ 
sented  as  a  filament  displaced  from  the  wire  axis  by  the  wire  radius. 


Taken  here  to  mean  the  direction  measured  along  the  intersection  of 
the  current  tube  surface  with  a  plane  perpendi cular  to  the  axis  0f 
the  current  tube. 
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Figure  la.  Thin-wire  Current  Approximation 
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Figure  lb.  Geometric  Parameters  for  Field  Evaluation 


E_  = 


We  can  now  write  the  integral  Equation  (8)  in  the  form 
(,'“Mo/4’)  J,  fa  V  ?  !„(,)  ds 

m=l,  2,  ....  N  observation  points 


AS 


n 


where  Asn  denotes  the  length  of  source  segment  n, 


g(r  ,r)  = 
m 


exp[-ik  A S 2  +  (sm  -  s)2 


/? 

/o  +  (sm  -  s) 


21 


and  it  should  be  noted  that  the  integration  over  L  has  been  reduced 
to  a  summation  of  N  separate  straiqht-wire  segment  integrals  It  is 
convenient  to  rewrite  Equation  (14)  in  terms  of  cylindrical  coordinate' 
referred  to  the  wire  segment  being  integrated.  Then  we  get 


E_  =  ( i  ojm  /4tt)  S 


N 


"m 


L. 

m=l 


/ 

Az_ 


LI 


m 


1 


3Vsm]  5(rm" 


zn>  W  \ 


where 


9(rm„'zn) 


exp(-ikr  )/r 
mn'  mn 
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mn 
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2 

p  mn 


+  a 


a£),JS  W1  re  segment  n,  and  pmn  and  zmn  are  the  radial 

affd  z-coordinates  of  the  observation  point  at  the  center  of  segment 
m  referred  to  the  midpoint  of  source  segment  n.  9 

Grgund_ .Effects  -  The  integral  equations  (14)  and  (15)  apDlv  onlv 
to  wire  structures  located  in  free  space,  or  more  generally  ,?n  a  * 
homogeneous  medium  having  electrical  constants  „  and  Location  of 
the  ,tructure  near  the  interface  between  two  electrically  dissimilar 
media,  however  leads  to  reflected  fields  which  can  mod  fy  the  free 
5J current  distributions,  and  thus  an  additional  term  must  be 

of  rnteresth^e69™'  e,Uati°"  f0"  U  *°  t0  preble,* 
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Hi s tori  cal ly ,  the  basic  work  on  the  solution  of  this  problem  was 
formulated  in  1909  by  A.  Sonmerfeld  (1964).  By  deriving  field  expressions 
for  vertical  and  horizontal  electric  and  magnetic  Hertzian  dipoles  in 
free  space  as  influenced  by  the  ground  plane,  Sormierfeld  obtained  the 
Green  s  functions  which  permit  eguations  (14)  or  (15)  to  be  rigorously 
extended  to  the  interface  problem. 

Unfortunately,  the  solution  of  the  Somnerfeld  integrals  requires  a 
double  numerical  integration  which  can  be  very  costly  in  terms  of  computer 
time.  Miller,  et  a  1 . ,  (1972a,  1972b)  describes  an  approximation  that  is 
used  in  the  WAMP  program.  The  approximation  is  to  represent  ground 
reflected  fields  via  plane  wave  reflection  coefficients.  This  procedure 
is  basically  quite  simple,  involving  decomposition  of  the  image  fields 
into  TM  and  TE  modes  relative  to  the  vertical  plane  containing  the 
image  and  observation  points,  after  which  the  reflected  fields  are 
obtained  by  multiplying  the  image  fields  by  the  appropriate  reflection 
coefficients.  The  advantage  of  this  technique  lies  in  the  fact  that  it 
represents  but  a  simple  extension  to  the  free  space  inteqral-equation 
treatment. 

Impedance  Loading  -  The  discussion  has  been  thus  far  limited  to 
the  case  of  a  perfectly  conducting  element.  The  approach  may  also  be 
generalized  to  allow  for  lumped  loading  of  the  structure  by  introducing 
a  voltage  drop  term  in  the  integral  equation.  If  the  impedance  loading 
per  unit  length  on  segment  m  is  zm,  then  Equation  (15)  becomes: 


Em  "  Imzm  =  same  as  Equation  (15) 


Solution  of  the  System  of  Equations  -  The  solution  of  the  integral 
equation  is  reduced  by  the  method  of  collocation  to  the  problem  of 
solving  a  linear  system  of  equations  for  the  N  sampled  current  values. 
The  problem  is  far  from  being  resolved  at  this  point,  however,  since  the 
linear  system  which  is  generated  may  contain  a  very  large  number  of 
complex  unknowns.  A  numerical  solution  of  such  a  system  would  be 
impractical  without  the  availability  of  a  large-core,  high-speed  digital 
computer.  An  additional  factor  of  importance  in  the  linear  system 
solution  is  the  use  of  an  efficient  and  accurate  numerical  technique; 
an  especially  significant  aspect  of  the  problem  since  the  solution  time 
increases  as  the  cube  of  the  number  of  unknowns  (see,  for  example, 
Forsythe  &  Moler,  1967).  The  method  used  to  solve  the  linear  system  of 
equations  is  discussed  next. 

The  final  step  in  solving  the  integral  equation  for  the  induced 
current  is  a  matrix  multiplication  of  the  solution  or  inverse  matrix 
times  the  source  vector. 
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The  induced  current  solution  can  be  written  in  the  form 


[I]  =  -  [G]"1  [E] 


(16) 


The  values  then  obtained  for  the  sampled  current  values  at  the  centers 
of  the  N  segments  on  the  structure  are  used  to  obtain  the  current  inter¬ 
polation  functions  for  each  segment. 

The  solution  technique  employed  in  the  WAMP  program  to  solve  the 
system  of  equations  is  the  Gauss-Doolittle  method  (Ralston,  1965). 

The  basic  step  in  the  Gauss-Doolittle  method  is  factorization  of  the 
structure  matrix  [G]  into  the  product  of  an  upper  triangular  matrix 
[U],  and  a  lower  triangular  matrix  [L],  i.e. 


[G]  =  [L][U] 


(17) 


and  thus , 


[L][U][I]  =  -[E] 


(18) 


Let 


[U][I]  =  [F] 


(19) 


so  that 


[L][F]  =  -[E] 


(20) 


Next,  equation  (20)  is  solved  for  the  elements  of  [F]  by  forward 
substitution  using  the  known  elements  of  [E].  Equation  (19)  is  then 
solved  for  the  elements  of  [I]  by  backward  substitution  using  the 
known  elements  of  [F]. 

Matrix  Symmetry  -  Many  antenna  structures  exhibit  geometric 
symmetries  which  may  be  exploited  to  a  great  advantage  in  terms  of 
computer  storage  requirements  and  execution  times.  Structure  symmetry 
can  be  used  to  increase  the  calculation  efficiency  by  reducing  the 
time  required  to  fill  the  structure  matrix  G,  and  by  decreasing  the 
computations  required  to  factor  and  solve  the  linear  system  of  equations. 
The  matrix  fill  time,  for  example,  is~reduced  by  a  factor  on  the  order 
of  1/n ,  and  the  inversion  time  by  1/n  ,  for  a  structure  with  n-fold 
rotational  symmetry. 
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The  reduction  in  matrix  fill  time  is  easily  understood.  Consider 
a  structure  having  4-fold  rotational  symmetry,  such  as  Figure  2  below. 


Figure  2.  Structure  with  4-fold  Rotational  Symmetry. 


which  will  have  a  structure  matrix  [G]  of  the  form: 


gll 

g12 

91 3  g14 

[G]  = 

g21 

g22 

g23  g24 

(21) 

g31 
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g33  g34 
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where 

gll 
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g44 
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P34  = 

:  g41 

(22) 

gl  3 

g24 

=  g31  » 

g42 

g14 

=  g21 

93 2  = 

g43 

.7 

2 

Thus,  rather  that)  their  being  N  =  16  matrix  elements  to  calculate, 
there  are  only  NVn  or  4  to  obtain,  and  the  reduction  in  the  structure 
matrix  fill  time  and  storage  is  on  the  order  of  1/n. 


This  version  of  the  WAMP  code  is  set  up  to  handle  rotationally 
symmetric  structures  with  elements  located  on  the  axis  of  rotational 
symmetry.  An  example  of  such  a  structure  is  shown  in  Figure  3. 


Figure  3.  A  structure  with  4-fold  rotational  symmetry  and 
center  wire.  (Turnstile  Antenna) 


-13- 


The  structure  matrix  is  of  the  form  given  by  (23): 


(23) 


(24) 


which  is  stored  in  the  computer  as: 


(25) 


The  solution  to  a  system  of  equations  of  this  synmetric  form 
may  be  accomplished  by  the  following  operations.  First  write  the 
matrix  equation,  noting  the  partitioning: 


[~A  J 

B 

nxn  ; 

i 

nxm 

i 

i 

i 

c 

D 

mxn  | 

mxm 

i 


(26) 


where  we  have  the  relationships: 


A  X  +  B  Y  =  U 

mxn  n  nxm  m  un 

and 

C  X  +  D  Y  =  V 

mxn  n  mxm  m  m 


C  A" 1 
mxn  Un 

To  solve  the  equations  (28)  and  (29)  for  the  X  and  Y  matrices 
we  perform  the  following  sequence  of  operations:  n  ,n 

1.  Factor  Anxn  in  place. 

2.  Compute  E  =  A  J  B  by  solving  A  E  =  B  in 

nxm  nxn  nxm  3  nxn  nxm  nxm 

place  and  storing  the  result  in  B. 

3.  Compute  Fmxm  =  -  Cmxn  Enxm  and  store  the  result  in  D. 

4.  Now  factor  D  in  place. 

5.  Then  compute  Wn  =  A^xn  Un  in  place. 

6.  Compute  Zm  =  Vm  -  C|Mn  wn  end  store  in  ^ 

7-  So,ve  Fmxm  Vm  =  Zm  for  v,n  an<J  store  <" 

8.  Finally,  compute  Xr  -  Wp  -  Enxm  Ym  and  store  the  result  in  U 

Solution  Sequence  -  We  may  now  list  the  sequence  of  operations 
performed  in  WAMP  to  obtain  the  solution  for  an  antenna  structure 
The  basic  steps  are  listed  below: 

1.  Initialize  WAMP  and  read  in  the  antenna  input  frequency  and 
the  media  over  which  the  antenna  is  located,  i.e.,  free 
space,  over  a  perfect  ground  or  a  finite  homogeneous  media. 


or 


and 


Xn  =  A-1  U  -  A-1  B  Y 
n  mxn  n  nxn  nxm  m 


(D  -  C  A"1  B  )  Y  =  V  - 
'  mxm  mxn  nxn  nxm;  m  m 
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2.  Convert  a  physical  description  of  the  antenna  structure  given 
in  terms  of  the  cartesian  end-point  coordinates  of  wire 
elements  into  a  series  of  interconnected  short  straight-line 
wire  segments.  The  segments  will  be  used  to  describe  the 
structure's  line  integral  path. 

3.  With  the  structure  defined,  the  structure  matrix  is  then 
computed  by  the  methods  outlined  earlier  in  this  section.  The 
electric  field  integral  equation  is  first  evaluated  for  the 
antenna  in  free  space,  where  the  co-location  technique  is  used 
to  fill  in  all  the  entries  of  the  structure  matrix. 

If  it  is  selected  to  model  the  antenna  over  a  homogeneous 
halfspace,  the  structure  matrix  entries  are  then  recalculated 
and  modified  by  the  ground  reflected  terms.  The  reflected 
fields  are  found  by  first  computing  the  perfect  ground  imare 
fields,  and  then  these  fields  are  modified  by  the  appropriate 
ground  reflection  coefficient  which  is  a  function  of  the  ground 
media  and  the  specular  angle  between  thesource  and  the  obser¬ 
vation  points. 

4.  If  segments  on  the  structure  are  impedance  loaded,  e.g.  an 
inductive  load  used  for  resonating  an  antenna,  the  loading 
may  be  simply  included  in  the  structure's  impedance  matrix  at 
this  point. 

5.  The  structure  matrix  may  then  be  factored  as  outlined  in  the 
previous  section.  Structure  symmetries  are  exploited  to 
minimize  the  amount  of  core  storage  required  and  the  amount 
of  computations  needed. 


6.  Once  the  structure  matrix  is  factored,  the  antenna  source 
vector  is  setup  by  applying  a  tangential  E-field  to  those 
segments  excited, 

7.  The  factored  structure  matrix  and  the  source  field  vector  are 
then  solved  to  yield  the  unknown  currents  at  the  center  of  each 
of  the  N  segments. 

8.  Once  the  segment  currents  are  known,  the  antenna  input  imoedance 
and  admittance  may  be  calculated. 


9. 


10. 


The  coefficients  A,  B  and  C  of  the  current  basis  function, 
Equation  (13)  are  next  determined  and  their  values  printed  out. 

The  two  last  steps  in  the  program  are  the  computations  of  the 
near  and  far  electric  fields.  These  computations  are  only  made 
it  selected  as  program  options. 

This  completes  the  description  of  the  WAMP  code.  The  next  section  de- 
scnbes  some  detail  the  input  parameters  required  to  use  the  program. 
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IV.  PROGRAM  INPUTS 

WAMP  is  written  to  conform  with  ANSI  X  3.0  FORTRAN,  and  allows 
for  in  core  execution  on  a  147K  CDC  3300  computer  system.  All 
program  inputs  are  via  punched  card  data  decks,  and  all  program  out¬ 
puts  appear  on  an  on-line  printer  output.  A  main  executive  program, 
and  20  subroutines  comprise  this  version  of  the  WAMP  code.*  Most  of 
the  program's  inputs  are  requested  by  the  MAIN  program,  however, 
several  subroutines  (DATAGN ,  CMSETUP  and  NEFLD)  may  also  request 
additional  data  inputs.  Figure  4  provides  a  basic  flow  diagram  of 
the  sequence  of  data  inputs,  which  is  followed  by  more  complete  details 
on  the  program's  input  variables. 

DATA  DECK  STRUCTURE 

The  structure  of  the  input  data  deck  for  WAMP  is  illustrated  in 
the  flow  chart  of  Figure  4.  Note  that  not  all  inputs  are  requested  by 
the  program,  and  they  are  dependent  on  the  run  options  selected  by  the 
second  input  data  card.  Additional  details  on  each  data  input  parameter 
follows. 

Run  Comments  -  (Format  [10A8J)  The  first  card  of  a  data  deck  is 
used  to  provide  80  characters  of  run  identification.  Any  text  which 
fits  on  one  card  may  be  used,  and  the  message  will  appear  on  the  first 
page  of  the  program  output. 

Run  Options  (Format  [1615])  The  option  card  allows  the  user  to 
select  several  program  options  at  execution  time.  The  parameters  are 
listed  below: 

NPRINT  ---  Controls  level  of  printed  output.  Input  Range  0-2, 
with  more  detailed  outputs  are  given  for  higher 
numbers.  Typically  NPRINT  =1.' 

I  LOAD  ---  If  the  structure  has  impedance  loaded  elements,  make 
HOAD  =  1.  The  load  values  will  be  read  in  later. 

IPGND  —  If  you  want  to  model  the  structure  over  a  perfect 
ground  plane,  set  IPGND  =1. 

IGSCRN  If  IGSCRN  =  1,  a  radial  wire  ground  screen  is  modeled. 

Screen  parameters  are  read-in  in  subroutine  CMSETUP 
later. 


A  listing  of  WAMP  is  included  in  Appendix  A. 
subroutine  is  also  included. 


A  brief  description  of  each 
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Flqure  4.  Flowchart  of  WAMP  Inut  Data  Deck  Cards 


-18- 


I NEAR  —  If  INEAR  =  1  the  near  field  subroutine  is  called.  The 
location  of  the  field  observation  points  to  be  evalu¬ 
ated  are  requested  by  the  NEFLD  subroutine. 

I  FAR  ---  Far  field  calculations  are  performed  if  IFAR  =  1.  The 
far  field  observation  angles  are  read  in  later. 

NPWR  ---  If  NPWR  =  1 ,  the  total  input  power  to  the  antenna  is 
normalized  to  1  watt.  All  field  values  will  also  be 
normalized  to  this  power. 

Frequency  and  Ground  (Format  [2F10.5,  215,  2F10.5])  The  frequency 
and  ground  card  allows  the  user  to  specify  the  frequency  at  which  the 
analysis  is  to  be  performed,  a  A  frequency,  and  the  number  of  A  frequency 
steps  to  be  evaluated.  The  user  also  has  the  option  of  performing  the 
analysis  in  free-space  or  over  a  conducting  half  space.  If  the  latter 
is  selected,  the  ground  media  parameters  must  be  supplied. 


GHZ  — 

Input  frequency  in  Giga-Hertz. 

GR  — 

A  frequency  in  GHz.  If  NFS  is  greater  than  1,  the 
frequency  is  changed  by  GHz  =  GHz  +  GR  each  frequency 
step. 

NFS  — 

NFS  is  the  number  of  frequency  steps,  and  it  must  be 
greater  than  or  equal  to  1. 

KSYMP  - 

For  analysis  in  free  space,  set  KSYMP  -  1. 
analysis  over  a  halfspace,  set  KSYMP  =  2. 
either  1  or  2. 

For  an 
KSYMP  must 

EPSR  - 

If  KSYMP  =  2,  then  read  in  the  value  of  the 
dielectric  constant  of  the  ground  media. 

relative 

SIG  — 

If  KSYMP  =  2,  then  read  in  the  value  of  the 
conductivity  expressed  in  mhos/metre. 

ground 

Structure  Data  Generator  Inputs  -  After  the  frequency  and  ground 
cards  are  read,  the  main  program  calls  the  DATAGN  subroutine,  the 
purpose  of  this  subroutine  is  to  transform  a  physical  model  of  an 
antenna  structure  into  quantities  which  describe  the  structure  to  the 
WAMP  code.  Basically,  all  structures  are  modeled  by  straight-line 
wire  elements.  (A  catenary  element  is  a  special  feature  allowed  by 
this  subroutine  and  is  described  in  more  detail  in  Section  VI).  The 
elements  in  turn  are  subdivided  into  a  number  of  straight-line  seenents 
and  it  is  the  segments  which  are  used  as  the  structure  descriptors  to 
the  program.  K 
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Each  wire  segment  is  specified  by  its  center-point  coordinates, 
its  orientation  angles,  its  length,  and  its  radius.  In  addition  to 
the  segment's  physical  parameters,  electrical  inter-connection  data 
must  also  be  provided.  The  two  arrays,  IC0N1  and  IC0N2  of  COMMON 
BLOCK/ 1 /  are  used  to  store  the  connection  data  relative  to  the  negative 
and  positive  ends  respectively  of  each  segment. 

All  structure  elements  are  specified  to  the  program  in  terms  of 
their  cartesian  end  point  coordinates,  with  dimensions  given  in  metres. 
Elements  are  described  to  the  DATAGN  subroutine  by  specifying  on  one 
card  the  two  end  point  coordinates,  and  interconnection  data,  and  on  a 
second  card  the  number  of  segments  to  be  used  to  describe  the  element, 
the  element's  wire  radius,  plus  some  additional  details  if  a  catenary 
is  to  be  modeled,  or  if  a  variable  length  segment  is  to  be  used  to 
model  the  element. 

The  connection  data  must  conform  to  the  following  rules:  Given  a 
positive  reference  direction  of  the  i-th  segment  defined  by  cu  and  Si 
and  the  arrow  as  illustrated  in  segment  coordinate  system  of  Figure  5, 
ICONl(i)  must  contain  the  index  of  the  segment  to  which  the  negative 
end  of  the  i-th  wire  is  connected.  A  multiple  connection  is  identified 
by  assigning  a  unique  negative  number  to  the  endpoint  connection  value 
of  each  segment  connected  to  the  junction, and  an  unconnected  segment 
is  assigned  a  value  0  at  the  unconnected  end.  One  rule  which  must  be 
observed  is  that  if  two  segments  are  connected  and  the  negative  or 
positive  ends  coincide,  as  illustrated  by  Example  3  of  Figure  6,  this 
junction  although  not  a  multiple  junction  must  also  be  assigned  a 
unique  negative  number.  Segments  which  are  grounded  must  be  given  an 
ICON  value  equal  to  the  segment's  own  index,  see  Example  4,  Figure  6. 

I C0N2 ( i )  array  is  similar  and  refers  to  the  positive  endpoint. 

The  input  variables  NC0N1  and  NC0N2  allow  the  user  to  specify  the 
I CONI  value  (negative  end)  of  the  first  segment  of  an  element,  and 
NC0N2  allows  the  user  to  specify  IC0N2  value  (positive  end)  of  the  last 
segment  of  the  element.  These  rules  are  illustrated  by  a  few  examples 
as  shown  in  Figure  6. 

Thus  the  data  generator  input  variables  are  described  as  follows: 

DATAGN  Card  1  (Format  [3F10.5,  15,  3F10.5,  15]): 

Cartesian  coordinates  of  the  negative  end 
point  of  the  line  element.  Dimensions  are 
in  metres. 

Specifies  the  IC0N1  value  for  the  first  segment 
of  the  element. 

Cartesian  coordinates  of  the  positive  end 
point  of  the  line  element. 

Specifies  the  IC0N2  value  of  the  last  segment 
of  the  element. 


XI,  Yl,  Z1  — 

NC0N1 

X2,  Y2 ,  Z2  — 
NC0N2 
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DATAGN  Card  2  (Format  [15,  4F10.5]): 


NSEGS* 

WIRERAD 

WT 

TENS 


Number  of  segments  in  the  line  element. 

Segment  wire  radius  given  in  metres. 

Wire  weight  given  in  pounds /metre.  (Needed 
only  if  a  catenary  element  is  desired.) 

Wire  tnsion  in  pounds,  which  is  needed  only 
for  a  catenary.  If  TENS  <_  1 . ,  no  catenary 
is  used. 


TAU  ---  Segment  length  expansion  (contraction)  factor. 

Note:  additional  details  on  this  factor  are 
given  later  in  Section  VI  and  Appendix  B. 

Structure  Symmetry  (Format  [1615])  After  the  antenna  structure 
has  been  described,  structure  symmetries  must  be  specified.  The  WAMP 
code  is  set  up  to  exploit  either  no  symmetry  or  up  to  12  sectors  of 
rotational  symmetry.  In  addition,  elements  on  the  axis  of  rotational 
symmetry  may  also  be  used.  The  symmetry  card  requires  the  following 
parameters: 


NP  ---  NP  equals  the  number  of  segments  in  a  rotationally 
symmetric  sector.  (Excluding  segments  on  axis  of 
symmetry. ) 

NX  ---  NX  equals  the  number  of  segments  on  the  axis  of  rota¬ 
tional  symmetry. 

Note  that  the  program  will  work  for  the  special  case  where  NP  =  N  (no 
symmetry)  and  NX  =0.  NP  +  NX  must  be  less  than  or  equal  to  22  for 
this  version  of  WAMP. 


If  structure  symmetry  is  to  be  exploited,  a  formalism  exists 
which  must  be  followed  if  a  proper  structure  matrix  is  to  be  set  up. 
Basically,  the  rules  for  setting  up  the  proper  structure  symmetry  are 
as  follows: 


1.  All  elements  in  a  sector  of  rotational  symmetry  must  be  completely 
specified  before  going  to  the  next  sector. 


Note:  If  NSEGS  is  a  positive  number,  the  DATAGN  subroutine  jumps  back 
to  request  an  additional  pair  of  line  element  cards  to  specify 
the  next  element  of  the  structure.  Input  continues  until  a  NSEGS 
(negative  number  of  segments)  is  used  to  specify  the  last  element 
of  the  structure.  At  this  point,  the  program  control  returns  to 
the  main  program. 
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Figure  5a.  Segment  Coordinate  System. 
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Fibure  5b.  Field  Coordinate  System 
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EXAMPLE 


EXAMPLE 


EXAMPLE 


EXAMPLE 


Figure  6. 


I CONI  (1 )=Q  IC0N2(1 )=2 
ICON1 (2)=1  IC0N2(2)=3 

I CONI  (3)=2  IC0N2(3)=0 

- - ► 

1  2  3 


ICON! (1 )=0 
ICON! (2)=0 


ICON2(l )=-7 
ICON2(2)=-7 
ICON2(3)=-7 


3 


I CONI (1 )=Q  ICON2 ( 1 )=-8 
I  CONI (2)=-6  I  COM2 ( 2 ) =-8 
I CONI (3)=-6  IC0N2(3)=0 
I CONI (4)=-R  IC0N2(4)=0 


f -8)  2  (-6)  3 


2 


ICON10H  I CON2  ( 1  )=2 
ICON! (2)=1  ICON2(2)=0 


m/v 


Examples  of  the  ICON  Connection  Values  for  Various  Types  of 
Segment  Junctions. 
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2.  One  may  progress  in  either  a  clockwise  or  counter  clockwise 
fashion  around  the  axis  of  symmetry  in  describing  the  structure. 

3.  Elements  located  on  the  axis  of  rotational  symmetry  must  be 
specified  last  to  the  data  generator  subroutine. 

Source  Excitation  (Format  [15,  2F10.5,  15])  The  source  card  allows 
the  user  to  specify  the  segments  which  are  driven.  Any  of  the  segments 
may  be  driven,  and  no  symmetry  of  the  excitation  is  assumed.  In  order  to 
compute  a  correct  input  impedance,  a  1.0  V  at  0°  phase  angle  source  must 
be  used. 

IS  ---  Segment  number  to  which  the  source  is  applied. 

ECM  —  Magnitude  of  driving  source  voltage  in  volts. 

ECA  —  Phase  of  source  in  degrees. 

NFLD  —  If  NFLD  -  1 ,  an  additional  source  card  is  read  in. 

Input  of  source  cards  continues  until  NFLD  =  0.  This 
feature  is  used  to  specify  multiple  excitations. 

This  completes  a  normal  data  deck.  Additional  inputs  may  be  required 
if  certain  options  are  selected  on  the  run  option  card.  These  inputs 
are  described  below. 

Segment  Loading  (Format  [3E10.3,  315]):  If  ILOAD  on  the  RUN  OPTION 
card  f  0,  the  segment  loading  option  is  selected.  Resistive  and  reactive 
loading  of  segments  is  allowed.  Symmetric  loading  of  rotationally 
symmetric  segments  is  assumed,  and  only  one  sector  of  symmetric  loads 
need  be  specified.  The  inputs  are  listed  below: 

ZR  --  Resistance  value  in  ohms  distributed  on  each  of  the 
specified  segments. 

ZI  --  Inductance  value  in  henrys  distributed  on  each  of  the 
specified  segments. 

ZC  --  Series  capacitance  in  Farads  on  each  segment  (Note: 

if  ZC  =  0.  On  input,  no  capacitive  loading  is  included.) 

11,12  --  Specify  the  range  of  segments  numbers  which  are  loaded. 

All  segments  from  II  to  12  each  receive  the  above  load 
values. 

NFLD  --  If  NFLD  f  0,  an  additional  load  card  may  be  specified. 
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Radial  Wire  Ground  Screen  (Format  [15,  E10.5])  If  IGSCRN  on  the 
RUN  OPTION  card T  0,  a  radial  wire  ground  screen  model  is  placed  in 
parallel  with  the  normal  ground  media.  The  ground  screen  parameters 
listed  below  are  read  in  by  subroutine  CMSETUP. 

NWIRES  --  Number  of  radial  wires. 

COH  --  Wire  radius  in  metres  of  the  radial  wires. 


Near-Electric  Field  (Format  [6F10.5,  215])  Subroutine  NEFLD  is 
used  to  compute  the  near  E-field  at  specified  points  in  the  structure's 
coordinate  system.  NEFLD  is  called  only  if  INEAR  =  1  on  OPTION  CARD. 


X0,  Y0, 

Z0  - 

--  Are  the  initial  field  evaluation  coordinates. 

(metres ) 

XI,  Yl, 

Z1  - 

--  Are  the  final  field  evaluation  coordinates,  (metres) 

NXY 

- 

--  NXY  +  1  field  evaluation  points  are  made  along  the 
straight  line  connecting  point  0  with  point  1. 

NFLD 

- 

--  If  NFLD  f  0  an  additional  near  field  evaluation 
path  may  be  specified. 

Far-Electric  Field  (Format  [5F10.5,  415,  2F5.1])  A  far  field  radi- 
ation  pattern  will  be  computed  if  I FAR  on  the  OPTION  CARD  =  1.  A 
provision  is  made  to  allow  a  far  field  calculation  over  a  media  which  is 
different  than  the  media  over  which  the  antenna  is  located.  The  farfield 
inputs,  which  refer  to  Figure  5,  are  listed  below: 

THETR 

— 

Initial  Theta  angle  in  degrees. 

PHYR 

— 

Initial  Phi  angle  in  degrees. 

ETAR 

— 

Polarization  angle  Eta  in  degrees.  (See  Figure  5) 

DTHR 

— 

Delta  Theta  step  size  in  degrees. 

DPHR 

— 

Delta  Phi  step  size  in  degrees. 

NTAR 

— 

Number  of  Theta  angle  steps. 

NPHR 

— 

Number  of  Phi  angle  steps. 

NFLD 

— 

If  NFLD  f  0,  another  far  field  card  may  be  read  in. 

Up  to  five  cards  may  be  specified. 

NEWSIG 

— 

If  NEWSIG  =  1,  new  values  of  sigma  and  epsilon  will 
be  read  in  for  the  far  field. 

SIGFF 

— 

Far  field  sigma  value  in  mhos  per  metre. 

EPSFF 

— 

Relative  dielectric  constant  for  far  field. 
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Note  that  if  a  new  value  of  sigma  and  epsilon  are  not  requested,  the 
far  field  ground  media  is  the  same  as  the  ground  media  of  the  antenna. 

Multiple  Data  Decks  -  The  above  cards  complete  the  data  for  one 
specific  structure. Multiple  data  decks  may  be  stacked  one  behind 
another  to  provide  for  multiple  runs.  The  program  control  returns  to 
read  the  next  comment  card,  and  if  an  end-of-file  is  encountered,  the 
run  is  terminated. 
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V.  SAMPLE  PROBLEMS 


Perhaps  the  easiest  way  to  gain  a  working  familiarity  with  the 
WAMP  code  is  to  use  it  to  model  some  simple  antenna  structures  which 
are  familiar,  and  which  we  can  compare  the  computed  results  with  known 
data.  This  section  illustrates  the  use  of  WAMP  by  a  series  of  examples. 
The  input  data  decks  and  the  pertinent  output  will  be  shown. 

Example  1  -  Half  Wavelength  Horizontal  Dipole  -  A  half  wavelength 
electric  dipole  is  a  good  place  to  start.  For  this  example,  the  antenna 
specifications  are  given  as  follows: 

Frequency  -  10  MHz 

Length  -  A/2  =  15  meters 

Wire  radius  -  8.3  mm  (ft  =  15) 

Height  above  ground  -  10  meters 

_2 

Ground  media  -  =  25,  u  =  10  mhos/m. 

The  first  step  is  to  describe  the  structure  in  terms  of  straight  line 
elements  whose  end  point  coordinates  are  given  in  terms  of  the  system's 
cartesian  coordinates.  For  the  dipole,  this  is  simple,  and  is  illus¬ 
trated  in  Figure  8. 

The  input  data  deck  may  now  be  set  up.  (Refer  to  the  previous 
section  for  a  more  detailed  description  of  the  input  parameters) 


Card  1 :  Comment  Card 

Halfwave  Horizontal  Dipole  --  Example  1A 
Card  2:  Run  Options 


NPRINT  =  2 

Get  a  printout 

I  LOAD  =  0 

No  loading 

IPGND  =  0 

No  perfect  ground 

IGSCRN  =  0 

No  ground  screen 

INEAR  -  0 

No  near  field  calculations 

I  FAR 

=  0 

No  far  field  calculations 

NPWR 

=  0 

Don't  normalize  input  to  1  watt 
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We  have  chosen  a  very  simple  example,  and  none  of  the  program's  options 
have  been  selected. 

Card  3:  Frequency  and  Ground 

GHZ  =  0.01  Input  frequency  =  10  MHz 

GR  =  0.  No  frequency  steps 

NFS  =  1  One  frequency 

*KSYMP  =  1  First  model  antenna  in  free  space 

EPSR  =  25.  Ground  dielectric  constant 

SIG  =  0.01  Ground  conductivity  mhos/in 

Note  that  since  the  analysis  is  first  being  made  in  free  space,  r 

and  o  of  the  ground  are  not  required  at  this  point,  but  were  included 
for  later  use. 


Cards  4  and  5:  Data  Generator  Inputs 


> 

fxl 

= 

0 

Coordi nates 

i  Y1 

= 

-7.5; 

of  end  point 

1  Z1 
l 

= 

10. 

A 

J  NC0N1 

= 

0 

End  point  A  is  an  open  circuit 

!  X2 

j 

= 

0 

Coordi nates 

!  Y2 

= 

7.5 

of  end  point 

|  Z2 

= 

10. 

B 

i  NC0N2 

V 

= 

0 

End  point  B  is  an  open  circuit 

NSEGS 

= 

-7 

Model  with  7  segments  (number  is  negative 
to  end  data  generator  inputs) 

WIRERAD 

= 

0.0083 

The  radius  of  the  dipole  is  8.3  mm 

WT 

r 

0. 

TEN 

= 

0. 

No  catenary 

TAU 

= 

0. 

No  variable  length  segment,  all  = 

The  DATAGN  will  use  this  data  to  form  a  seven  segment  description  of 
the  dipole  as  shown  in  theprogram's  output,  Figure  10. 
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Card  6: 

Structure  Symmetry 

NP 

=  7 

No  symmetry  will  be  used,  NP  = 

NX 

=  0 

No  segments  on  axis  of  symmetry 

Card  7: 

Source 

Excitation 

IS 

=  4 

Excite  the  center  segment 

ECM 

=  1. 

Use  a  1.0  volt, 

FCA 

=  0. 

0. degree  source 

NFLD 

=  0 

Only  one  source  card  needed. 

=  7 


This  completes  the  data  deck  requirements.  The  next  step  is  to  submit 
the  program  for  execution  and  obtain  the  computer  printout.  The  punched 
data  deck  is  shown  in  Figure  9,  while  the  numerical  results  are  shown 
below  in  Figure  10. 


MAir  UAVC  HORIZONTAL  DIFOlC  **  EXAHPlC  |A 


2  0  0  0 

01  0 
0.  -7.5 

-7  0001 

7  0 

I 


25 


7.5 


0 


UlftC  ANTENNA  NOOCLINO  PROORAH 


HA If  HA Vt  HORIZONTAL  01  POLE  --  CXJmC  IA 


2  0  0  0 


0 


0  -0 


rRCQUCNCv 

FUCOUCNCT  INCREMENT 
NO.  FREQUENCY  STEPS 
mavclenotm  imetcrsi 


I  00000C-02 

oc*oo 


I 

2 . 99793C ♦ 0 1 


ANTCWA  IS  NOOELEO  IN  FREE  SPACE 


I  OATA  GENERATOR  INPUT  DATA  CAROS 


.0  -7  50000 

00030 


10.00000 

0 


0 

0 


0  7.50000  10.00900  0 

0 


NUM9CR  OF  SEONENTS  -  7 

NO.  SCO  IN  A  SECTOR  »  7 

NO.  SCO.  ON  AXIS  OT  ROTATION  •  0 


I  STRUCTURE  OE ORE TRY  (DIMENSIONS  IN  WAVELENGTHS > 


COORDINATES 

or  sco. 

CENTER 

SCO 

HIRE 

ORIENTATION 

ANOLCS 

CONNECT | ON  OATA 

X 

Y 

l 

LCNOTM 

RADIUS 

ALPHA 

SETA 

|. 

l 

1  ♦ 

- . 00000  - 

.2  INN3 

33350 

.07IN6 

. 00027666 

.0 

•0. 000 

0 

1 

2 

- . 00000  - 

.  mm 

.31396 

. 07 1  NS 

. 00027666 

0 

SO  000 

1 

2 

3 

‘00000 

.Q71NS 

33356 

. 07 1  NS 

000276P6 

.0 

90.000 

2 

3 

N 

-.00000 

00000 

33356 

.  07 INS 

. 00027666 

0 

90.000 

3 

N 

5 

-.00000 

.07  INS 

.33356 

. 07 1  NS 

. 00027666 

.0 

90  000 

N 

5 

6 

-  00000 

1N299 

33356 

. 07  INS 

. 00027666 

0 

90 . 000 

5 

6 

7 

-  00000 

■2INN3 

.33356 

. 07  INS 

. 00027666 

.0 

90 . 000 

6 

7 

0 

TOTAL  HIRE  LCNQTH  •  5 . 003N52J62 INC -0 1 


ANTENNA  SOURCE  DISTRIBUTIONS 
SCO.  VOL  TAOC 

NO.  RAO.  PHASE 

N  1. 00000  .0  0 

!•  I 


-N.93NE*0! 
-3. 297E*0l 

J.5t2f0t  -S.SOflC'OI  -1  -9  I99C*0I 

-1. SMC. 01  -2.2S2t.0l  -c.MK.00 

9  222C  *0 1  - N . 690C ♦ 0 1 

- 1  01  1002  N  017001 

-N  J97E  *01 

1  ■  2 

-N.9SNC*0! 

-N.053C*01 

-l.l27C»0t  -9.  .ISC. 01  l.flflOC«Ot  -9  V7C«0I 
-t.3»tC»0l  -2.92IC.0I  -1  639C.0I 

1  096C  *0N  -5  I9SC  *01 

9  22*  *01  N  6601  *01 

1  011002 

1  •  3 

-N.59NE*0l 
-N . 727C+0I 

-9.0ttC.0l  -9.999C.0I  -I.OflflC.Ot  -9.6tOC.OI 
-1  OI2C.02  -3.976C.0I  -t.|«2C.0l 

l.972E«0N  -5.527C*0I 

-1  0960 ON  -5.  I99E*0I 

-9.222E *01 

1  •  N 

-N.|N5C*0l 

-5.256C*0I 

-»  fltlC.OI  -9.29flC«0l  -9.23flC*0l  -9  S27E«0I 
-fl.23flC.0l  -t.ltSC.OI  -9.BtlC.0l 

-1 . 0060 OH  -5  6N0C*0l 

1  .  972C*0N  -5 , 527001 

-1  0060 ON 

1  ■  5 

-3 . 576C+0I 
-5.595C«0l 

-t ■ I92C.0I  -t . 727C.0I  -1  0I2C.02  -5. IflflC.OI 
-l.0MC.0t  -t.9fltt.0l  -fl.OttC.OI 

'9.222E*0I  -5.527E*0I 

-1 . 096C ♦ ON  -5. 9NOC *0 1 

1  972C*0N 

I*  6 

-2.92IE*0I 
-5. 7liC*01 

-l.fl39C.0l  -t.0S3C.0l  -t.39tc.0l  -t.660E<0l 
l  .flflOC.Ot  -t.fl9tC.0l  -  1 . l27C«0t 

-1  .01  1 E *02  -5.  199001 

-9  222E*0l  -5.527C*0l 

*  1  -  096C+0N 

I*  7 

-2.232C*0l 

-S.609C*0l 

-2.flfl3C.00  -3.2fl7C.0l  • 1 . flS2C.O 1  -t. 0171*01 
-l.3t7C«0t  -t.93tC.0l  S.9t2C«0t 

■N . J97C *0 1  -N  6SOC*OI 

-1  0 II C * 02  -5. I99E*0I 

‘9.2221*01 

30- 


I  HOXNT  EXC I  TAT  ION  IVOLTS/MAVELENOTMI 
SCO  NUHKR  REAL  AMT  IMAOINARr  PART 

H  -1S99E-0I  -  0E»0« 


NO  «E»L  I  MAG  I  NARY  MAGNITUDE  PHASE 

I  a.H003E-03  - 1 .9073E-03  a  93H037I9E-03  -3a.a09 

l  6  H306C-03  -3  97aOE-03  7  90033360E-03  -31  093 

1  9.070NE-03  -9.  I  I9K-03  I  OH  I  3N99aC  -  Op  -P9  HP3 

h  i  oooaE-oa  -3.099BE-03  i  iaa7anoiE-oa  -ptoih 

AOfilT-  l.oooae-oa  -9  0996C-03  ZPEO-  7  93SIE.0I 

i  .iaa7E-oa  -pt.oih  asosw-oi  a7  01 


Sag  current  - 

NO  REAL  I  HAG  I  HART  HAONITUDE  PHASE 

5  9  070HC-03  -3  I  I3GE-03  I  .  ON  I MHC-OP  -Mill 

6  3  N3ME-03  -3  O7P0E-03  7  90C33300C-03  -31.033 

7  a  HI03E-03  -1  3S73E-03  a.93H037aiC-03  -3a  PM 

H .  0H90E  *01 


I  I  AR  A I  on  oi 

I  -3  S00HE-03  3  S0H9E-03  I . OHOSE-OP  -0 . HB09E -03 

a  -I  7703E-0H  I  H70IE-03  7.3O93E-03  -H  O963E-03 

3  H -39a0E*0H  I  a33HE -03  H . I 1 33E-03  -  I .N I 37E -03 
H  0  OHOPE-OH  -3.a*IIE-03  3.9307E-II  -9.I03IE  II 
3  H  SOPOE-OH  I  a3SHE-03  -H.IISK-03  I.HI37E-03 

6  -I  7703E-OH  I  H70IE-03  -7.3993E-03  H  0M3E-03 

7  -3  300HE-03  3.30H9E-03  -I.OHOSE-OP  S.HSO9E-03 


CR  Cl 

3  9O07E -03  -3 . 07aaE -03 
6  807SE-03  -3  330PE-03 
■  OliaE-03  -S  33I0E-03 
9  397HE-03  I.0I90E-0H 
a  6liaE-03  -6  33I0E-03 
6  60 TOE -03  -3  330PE-03 
S  9007E-03  -3.07aaC-03 
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Example  IB.  —  The  results  of  example  1A  were  obtained  for  the 
dipole  in  free-space.  It  is  a  very  simple  matter  to  now  model  the 
antenna  over  an  imperfectly  conducting  halfspace,  as  specified  on 
Figure  8.  Only  the  KSYMP  variable  on  card  3  need  be  set  to  2  as 
shown  on  the  data  card  in  Figure  12.  ’ 


HALF 

HA  VC 

horizontal 

OIROLE  -- 

EXAMPLE  It 

0 

0  0 

0  0 

.01 

o. 

i  i 

n 

0. 

-7.5 

10. 

0  0 

-7 

0001 

0. 

0.  0 

7 

0 

1 . 

0  0 

0 
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Ml*  ANTCttM  MOOCH  NO  PROGRAM 


HALF  wave  HORIZONTAL  OIPOLE  ~  EXAMPLE  10 


?  0  0  o  0 


0  -o 


FREQUENCY 

FREQUENCY  INCREMENT 
NO.  FREQUENCY  STEMS 
MAVCLENOTh  (METERS  I 


I  "Q000C-02 
OE*00 

I 

2.99793C*0  I 


0R0*#*>  PLANE  AT  Z  -  o. 

OIELECTRIC  CONSTANT  .  2  50000£*0l 
CONDUCTIVITY  ■  I.OOOOOC-02 


I  DATA  OEfCRATOR  INPUT  OATA  CAROS 


0  -7.50000  10. 00000  0 

00930  o  .0 


0  7  50000  10.00000  0 

.0 


numrer  of  seoments  -  7 

NO.  SCO.  IN  A  SECTOR  •  7 

NO.  SEC.  ON  AXIS  OF  ROTATION  -  0 


I  STRUCTURE  OC ONE  TRY  (DIMENSIONS  IN  NAVELCNOTMS) 


COORDINATES  OF  SCO. 


X 

-.00000 
- . 00000 
-  00000 
- . 00000 
- . 00000 
- . 00000 
-00000 


V 

2IHH3 
. I«CM 
07IH6 
.00000 
07 1  Hi 
.  I  HEM 
•  2IHH3 


CENTER 

Z 

.33396 

33396 

.33396 

33396 

33396 

.33396 

.33396 


SCO.  WIRE 

LENOTM  RADIUS 

07 1  *6  OOOE7M6 
.07 | HR  .00037666 
.07 | Hi  .00027666 
07 | Hi  . 00027666 
.07 1  Hi  .00027666 
07 | HQ  .00027696 
.07 1  Hi  . 00027666 


OM  1  ENT  AT  ION  ANOLCS 

ALPHA 

6CTA 

.0 

60.000 

0 

90.000 

0 

90 . 000 

0 

60  000 

0 

•0  000 

0 

60.000 

0 

90 . 000 

CONNECTION  OATA 
1“  II* 

0  I  2 

1  2  3 

2  3  H 

3  H  9 

•*9  6 

9  6  7 

6  7  0 


TOTAL  HIRE  LENOTM  •  9  003H923i2IHE-0l 


ANTENNA  SOURCE  DISTRIBUTIONS 
SCO.  VOLTAGE 

NO.  MAC.  PHASE 
••  I  .  00000  0  0 


I  •  I 

-6.  I  39C  *0  I  3.9H IE*0H  -6.977|>0l  -l.3H6£*0H  -6.H63C*0) 
-H.|iHE*OI  -l.H!7E*0l  -2 . 673C *0 1  -5  232E-0H 


336E«0I  9  66 IE *01  -|.0IIE*02  -5  065£*0l 


I*  2 

-6. 039C  *0  I  -  I  .  I27E*0H  -7.I0«C*01  l.979C*0H  -6677f*PI 

-9. I  I IE*0l  -H.270C*0l  -  3 . 7 1 2E  *0  I  -I.H39C*0l 


-I  066£*OH  -6  H63E *0 1  9  336C*0l  5  K3C«0l 


I*  3 

-5. 715C+0I  -9.I93C«0I  -6  962C*0I  - 1  066E *0H  -7.0I2E*01 
-9923C*0l  - 1 . 0 12C+02  -H.90HE*0l  -H.0i7C*0l 


I  972E*0H  -6  677E*0I  - 1  066E *OH  -6  H63C*0l  - 


!■  H 

-5.IME*0I  -9.659£*0I  -6.997C*0l  -9393C*0l  -8.677E*01 
-6.997C*0I  -t.  393C*0I  -9.  1 69E ♦  0 1  -9.659C«0l 


-I  066C*0H  -7  0 1 2C *0 1 


I  972E*0H  -6.677E*0I  - 


l»  9 

-H.90HE*0I  -H.067E*OI  -9. 923C*0I  -I0I2C*02 
-6  962C  *01  -l.066E«0H  -9.7|9E*0I  -9.I53E*0I 


-6.H63E*0I  -9  336E *01  -6  677E*0I  -l.0MC*0H  -7.0I2E*0I 


I-  6 

-3. 7I2C*0I  -I.H39E*01  -9. 1 1  IE*OI  -H.270C*0I  -9  M3E»0l 
-7. IO6C*0l  l.676E*0H  -6.039C*0l  -|.I27C*0H 


-I  0 1  IE *02  -6  H63E*0I  -9  336C*01  -S  677f0l  - 


!•  7 

-2.673C*0I  -9.232E-0H  -H.|6HE*0I  -I.H|7E*0I  -5.065£*0I 
-6.677C*01  - 1  .  3H6C*0H  -6.I35£*0I  3.9H|E*0H 


-•*  276E*0I  -9. M3E*0I  -|.0IIE«02  -6.Hi3C*0l 


H.27K«0I 


I  0111*02 


9  3JK*0I 


I  OB6C*OH 


I  ■  972E*0H 


I  - 066C*0H 


-9  33M«0I 


33 


I  SEOHENT  EXCITATION  t  VOL  TS/WAVELENOTH  > 
SEO  NUHKN  NEAL  PANT  I  MAG  I  NAN Y  NANT 


•* 


- 1  .  JttE ♦  0 1  -  0£*00 


I  SCO.  CUNNENT- 

NO.  NEAL  I  MAO  I  NAN Y 

1  2.  IHtlE-03  -I  •  I7HJE-03 

2  3 . 3727E-0J  -2  0330E-03 

1  7.O129E-03  -1B790E-03 

0.07I7E-03  -3.3102C-0J 
ADMIT-  •■•7I7E-03  -3 . 5I02C 
S.3373C-03  M  072 


MAONITUOE  PHASE 

2.»«HB09332C-03  N  MH 
6.aeaBN«06c-03  >27. ns 
I  .Ml  32t7 1 E  -03  -23.070 

9337H9739E-01  -22.072 

03  ZNEO-  9  90 SHE «0 I 

I.OM7E»02  22  072 


SEG.  CUNNENT  - 

NO.  NEAL  I  MAO  I  NAN  Y  MAGNITUDE 

3  7 0029E-03  38700C-03  OBOI32977E-OI 

6  3  3727E-03  -2.0330E-03  §  .200»*0I  3E-0J 

7  2.  IH0IE-03  -I  .  I7H3E-03  2.HH000353C-03 

H.0I57E*01 


PHASE 

>23.070 

-27.115 

-20.00H 


AN 

A I 

ON 

01 

CR  Cl 

l 

-30077E-03 

2  9NS7E-03 

0033C-03 

-H  0090E-03 

3  I330E-03  -H . I200E-03 

2 

-1  H703E-0H 

1  .  HH09E  *03 

30I3C-03 

>2  003 JE -03 

3.7I97E-03  -N .  3023C-03 

3 

3 . 9  3  JOE -OH 

1  3090E-03 

30ME-03 

-7.63I2C-0H 

7.H69OE-03  -*»  9006C -03 

* 

3.  I300E-GH 

-3  I030C-03 

3632C-I1 

-0 .  H7H0E  - 1  1 

0 .  *35«E-03  I.OH70C-03 

3 

3. 933OE-0H 

1  3090E-03 

-3 

S609E-03 

7.63I2E-0H 

7  .  H696C  -03  -*•  9006C  03 

6 

-1  .H70JE-0H 

l  .‘•HB9C-03 

-6 

30 1  SC  - 03 

2.B033E-03 

3.7I97E-03  -H  3023C-03 

7 

-3.0077E-03 

2  9H37E-03 

-* 

0633C-03 

H  0090E-03 

3. 1350E-03  -H  I200C-03 
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Example  2  -  Two  5/8  Wavelength  Monopoles,  1/3  Wavelength  Apart 

As  a  second  example,  we  will  model  two  antennas,  both  fed,  and  compute 
the  far  field  space  radiation  pattern.  This  example  serves  to  Ulus- 

an2  th6  u«»Snf°lh!t^Ctli-e,5yran,!?ry'  ‘I?  9r°“"d1"S  «f  antenna  elements 
+.t^u  use.°f  the  far-field  option.  The  physical  configuration  is 

that  shown  in  Figure  13,  where  we  have  made  use  of  the  structure's 
symmetry  in  the  selection  of  the  coordinate  system's  oriqin.  The 
structure  of  the  data  deck  is  as  follows: 

Card  1 :  Run  Comments 

Card  2:  Run  Options 


NPRINT 

=  1 

Nominal  printout 

I  LOAD 

=  0 

No  loading 

IPGND 

=  1 

Use  a  perfect  ground 

IGSCRN 

=  0 

No  ground  screen 

INEAR 

=  0 

No  near  fields 

I  FAR 

=  1 

Select  far  fields 

NPWR 

=  0 

Don't  normalize  power 

Card  3:  Frequency 

and  Grounds 

GHZ 

=  0.01 

10  MHz  input  frequency 

GR 

=  0 

No  frequency  steps 

NFS 

=  1 

Only  one  frequency 

KSYMP 

=  2 

Analyze  over  ground 

EPSR 

=  1. 

^Set  EPSR  =  1  as  a  dummy  value  even  though 

SIG 

=  0. 

,  t  r  and  c  are  not  used. 
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b.  Segmented  Model 


Figure  13  Two  5/8  Wavelength  Monopoles--Both  Fed. 
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Cards 

4  &  5 

Model 

Monopole 

#1 


Cards  4,  5,  6,  and  7: 

r 

XI  =  0. 

VI  =  5. 

Z1  =  0. 

NC0N1  =  1 
X2  =  0. 

!  Y2  =5. 

Z2  =  18.75 
NC0N2  =  0 

NSEGS  =  4  / 
j WIRERAD  =  0.01 


Data  Generator  Inputs  (see  Figure  13) 

|  Coordinates  of  bottom 
{  end  of 

i 

LMonopole  1 
Segment  1  is  grounded 
Coordinates  of  top 
end  of 
Monopole  1 

Segment  7  is  unconnected 

7  segments  uased  (A  +7  means  another  set 
of  data  cards  will  be  read) 

10  cm  radius  wire 


WT 

— 

0. 

No  catenary 

TENS 

= 

0. 

No  catenary 

TAU 

= 

0. 

Equal  length  segments 

XI 

= 

0. 

Coordinates  of  bottom 

Y1 

= 

-5. 

\  of 

Z1 

= 

0. 

l. Monopole  #2 

NC0N1 

= 

8 

Segment  #8  is  grounded 

Cards  , 

X2 

= 

0. 

f  Coordinates  of  top 

6  &  7 

Y2 

= 

-5. 

'  of 

Model  ^ 

12 

= 

18.75 

^  Monopole  *2 

Monopole  i 
n 

NC0N2 

= 

0 

Segment  #14  is  unconnected 

NSEGS 

(V/IRERAD 

= 

-7 

0.01 

7  segments  for  monopole  #2 

10  cm  radius  wire 

WT 

r 

0. 

No  catenary 

TENS  =  0. 
TAU  =  0. 


No  catenary 


-37- 


Card  8:  Structure  Symnetry 


NP  = 

7 

7  segments  per  symmetric  section  - 
sectors  of  symmetry) 

m  - 

0 

No  segments  on  axis  of  symmetry 

Cards  9  *nd  10:  Source  Excitation 

r  15  * 

1 

Excite  segment  #1 

J  = 

1. 

1  volt  source 

ECA  - 

0, 

0  degree  phase 

J*FLB  ■ 

1 

Read  in  another  source  card 

IS  = 

a 

Also  excite  segment  #8 

,  ECM  - 

]  ECA  = 

nfld 

u 

1  volt  source 

+1;20. 

+1201  phase 

*  D 

End  source  input 

Card  11 : 

Far  Field 

Input 

THETR 

=  0. 

Initial  0  angle 

PHYR 

=  -180. 

Initial  <J>  angle 

ETAR 

=  0. 

Polarization  angle  =  0° 

DTHR 

=  5. 

5  degree  step  in  e 

DPHR 

=  10. 

10  degree  step  in  <f> 

NTHR 

=  19 

19  steps  in  6 

NPHR 

=  19 

19  steps  in  $ 

NFLD 

=  0 

No  more  farfield  inputs 

NEWSIG  =  1  Compute  far  field  over  finite  ground 

SIGFF  =  0.01  Conductivity  of  far  field  medium  in  mhos/metre 

EPS FF  =  15  Relative  dielectric  content  of  far  field. 

The  completed  data  deck  for  example  2  is  shown  in  Figure  14,  and  the 
computed  results  are  shown  in  Figure  15.  The  far  field  radiation 
pattern  is  shown  in  Figure  16. 
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MONOPOLES  S/t 

WAVELENGTH 

-- 

1/3  wavelength  apart 

--  EXAMPLE  2 

l 

0  1 

0 

0 

1 

0 

01 

o. 

1 

? 

1 

0. 

0. 

s 

o. 

1 

0 

5  10.75 

0 

7 

01 

0 

0. 

o. 

0. 

-s 

0 

9 

0. 

-5  10.75 

0 

-7 

.01 

0 

0, 

0 

7 

1 

0 

1 

0. 

, 

• 

1 

110 

0 

0 

-90 

0 

3 

10. 

19  19  0 

1 

WIRC  ANTET94A  nOOCL  INC  PROGRAM 


*  MONOPOLES  5/9  WAVELENGTH  --  l/J  WAVELENGTH  APART  --  EXAMPLE  2 

I  0  I  0  0  I  0 

FREQUENCY  -  I  OOOOOE-Oa 

FREQUENCY  INCREMENT  -  .  DE*00 

NO  FREQUENCY  STEPS  •  I 
WAVEIENOTM  (METERS *  •  *.9979JE*0l 


A  PERFECT  GROUND  PLANE  AT  Z-0. 


OATA 

GENERATOR  INPUT 

OATA 

CAROS 

0  5. 00000 

0  1 

.0 

5  00000 

19  75000 

7 

.01000 

0 

0 

0 

.0  -500000 

.0  9 

.0 

-5.00000 

19  75000 

•7 

01000 

0 

.0 

0 

NUMKR  Of  SEGMENTS  -  I* 

NO  SCO  IN  A  SECTOR  •  7 

NO  SCO  ON  AXIS  or  ROTATION  - 


01  IS. 


0 

0 


0 
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STRUCTURE 

geometry 

l  DIMENS  IONS 

i  IN  WAVCl  ENGTHS 1 

COORDINATES  OF  SEG 

CENTER 

SEG 

WIRE 

N 

Y 

2 

length 

RAO  1  US 

- .00000 

16678 

0**67 

08935 

.00033356 

*  00000 

16678 

1  3*0? 

00935 

00033356 

- .00000 

. 16678 

??337 

08935 

00033366 

-  00000 

16678 

3 1  ?7  f* 

08935 

00033366 

-  00000 

16678 

*oeo6 

08935 

00033366 

-  00000 

16678 

*91*1 

08935 

00033356 

-  00000 

16678 

58076 

00935 

00033356 

-  00000 

-  16678 

0**67 

00935 

00033366 

-  00000 

-  16678 

13*0? 

00935 

1)0033366 

-  00000 

-  16670 

??337 

08935 

00033366 

-  00000 

-  16678 

Jl?7? 

08935 

00033366 

-  00000 

-  ••’578 

*0?06 

00935 

0003336b 

-  00000 

-  Iu67B 

*91*1 

06935 

00033366 

- .00000 

-  16678 

58076 

08935 

00033356 

TOTAL  WIRE  LENGTH  •  |  ?508630955*F *00 

ANTENNA  SOURCE  DISTRIBUTIONS 
SCO .  VOLTAGE 

NO  MAG  PHASE 

I  I  00000  .0  I 

0  I  00000  l?0  00000  0 


ORIENTATION  ANGLES  CONNECT  ION  DATA 


ALPHA 

beta 

1 

1 

1  ♦ 

90 

000 

0 

1 

1 

? 

90 

000 

0 

1 

? 

3 

90 

000 

0 

? 

3 

* 

90 

000 

.0 

3 

* 

5 

90 

000 

0 

* 

6 

6 

90 

000 

0 

5 

6 

7 

90 

000 

0 

6 

7 

0 

90 

000 

0 

8 

8 

9 

90 

000 

0 

8 

9 

10 

90 

000 

.  0 

9 

10 

1  1 

90 

000 

0 

10 

1  1 

I? 

90 

000 

0 

1 1 

1? 

1  3 

90 

000 

0 

1? 

13 

1* 

90 

000 

0 

I  3 

1  * 

0 

I  SEGMENT  EXCITATION  I  VOL  TS/ WAVELENGTH  I 
SEG  HJM9CR  REAL  PART  IMAGINARY  PART 

I  -I  I  I 9E  *0  I  -  OE  *00 

0  5.596£*00  9  693E  *00 


l  SEG  CURRENT- 


NO 

REAL 

IMAGINARY 

MAGNITUDE 

PHASE 

1 

9  *61 OE -0* 

? 

*985£  03 

?  671671 39E  03 

69 

?60 

? 

7 . *950E -0* 

3 

?809E -0* 

8  I8I6I7HHE -0* 

i'  3 

6*1 

3 

*  ??e?c-o* 

•  1 

8?I9C  03 

l  87  0  36*B6E  03 

-  ’6 

9  35 

* 

7 . *905£ -  05 

3 

3*70E  -03 

3  3* 779 1 55E  *0  3 

08 

710 

5 

-1  0O7JC-O* 

*3 

8063E-0  3 

3  810593?5C -03 

-9? 

719 

6 

-?  6?51E  0* 

-3 

05? IE  -03 

3  063* 197?€  03 

-9* 

916 

7 

-I  *l8?E-0* 

-1  , 

?557E  0  3 

1  ?6 36 339 1 E -  03 

-96 

*** 

8 

1  9377E-Q3 

-7 

76B3E-0* 

?  0B75855*E-03 

168 

15* 

SEG 

NO 

CURRENT 

REAL 

IMAGINARY  MAGNITUDE 

PHASE 

8 

1  9377E  03 

7 

768 3f  0* 

?  O075855*E  01 

158. 15* 

9 

1  05 1  ?E  -  0* 

? 

*689E  -  0* 

?  683*031  OE  0* 

113  06? 

10 

1  67951-03 

1 

?I?3E  -03 

?  07l?950*E-0J 

35.8?? 

1  1 

?  9l9*t  03 

1 

0*?7f  -03 

3  *5?3109*C  03 

3?  ?60 

1? 

3  ?59*E - 03 

1 

95?IE-03 

3 . 799?9?58E -03 

30.918 

13 

?  5807E  -03 

1 

5005C  03 

?  99?I5*87E  03 

30 . 097 

1* 

1  0588E  -03 

6 

977*t  0* 

1  .  ?  15875?7E  -  0  J 

?9 . **7 

1 

AR 

*  I 

BR 

81 

CR 

C  1 

1 

3.0563E-0* 

-* 

57??£  *0  3 

-  1  fi*65€  -0* 

-? 

0385E  03 

6 

*0*6E  -0* 

7 

0  7  0  7E  -  0  3 

? 

3 .  ?573C  -0* 

3 

9*6?f  -  0* 

-*  9IM7E-0* 

-* 

0579E  -03 

* 

?377E-0* 

-6 

65 J?C  -  05 

3 

3  5  366C-0* 

? 

1  *?IE  - 0* 

-6  3359C-0* 

-3 

*517E  03 

6 

9I6IE-05 

-? 

036?E  -03 

* 

3.755IE-0* 

1 

?*6*C -0* 

-5  6686C-0* 

•  1 

8637E  G3 

3 

0060C -0* 

3 

*7 16E -  03 

5 

3.8559E-0* 

1 

*695E -0* 

*3  I69?£ -0* 

? 

7688E  0* 

5 

661?E  0* 

3 

953IE-03 

6 

397I9E-0* 

3 

*35lE -0* 

3  6550E-05 

? 

3956C  03 

6 

597?E-0* 

3 

3957E-03 

7 

5  ??05E -0* 

1 

**0?E  03 

*  18I5E-0* 

* 

15I8E -03 

6 

6387E  0* 

-? 

6959E-03 

9 

*  03??C - 03 

? 

558?E-03 

1  . 7?|?E*0  3 

9 

6I50E  0* 

5 

9699E-03 

-3 

3350E-03 

9 

-?.6l?7E-0* 

5 

67* 7C  05 

3. 397JE-0T 

1 

86B?E  03 

1 

56 1 5£  0* 

1 

90 1 5C  -  0* 

10 

9  5079E-05 

I 

?  1  3?E  -0** 

?  BV06C  03 

1 

*99B€ -03 

1 

77*6E  -  0  3 

1 

0909E  03 

1  1 

-1 , I977E-05 

, 

*505C -  0* 

1  .  *839E  -  0  3 

6 

9*87£  -  0* 

j 

93 1 *E  03 

1 

6977F -03 

1? 

3  33!?C-06 

l 

?*55C -0* 

-3  1053E-0* 

3 

?l*7f-0* 

3 

?9?0E  03 

1 

B?75f  -0  3 

13 

-?. 1 0*6C “0* 

3 

0969E-05 

-  ?  .  0669E  -  0 1 

1 

P1S01  0  3 

P 

799?C  03 

1 

*695f  03 

1* 

-1 . l*9*E-03 

-* 

7789E  0* 

-3  51031  03 

? 

OOSHf  03 

«* 

POfPf  0  3 

1 

0756E  -03 

-40- 


I  2  MQNOPOLES  a/*  WAVELENGTH  --  |/J  WAVELENGTH  APART  --  EXAMPLE  2 

DIELECTRIC  constant  -  I  5000C*0I  AND  CONDUCTIVITY  .  I  OOOOE-O?  POP  f  AH  riELO  CALCUL  AT  IONS 


OOSCRVA 

MON  ANOLES 

theta 

PHI 

0 

-90  000 

5  000 

-90  000 

10.000 

-90  000 

15  000 

-90  000 

20  000 

-90  000 

25  000 

-90  000 

30  000 

-90.000 

35  000 

-90  000 

40  000 

-90  000 

45 ,000 

-90  000 

50  000 

-90.000 

55  000 

-90.00b 

60.000 

-90  000 

65  000 

-90  000 

70  000 

-90  OOO 

75  000 

-90  000 

ao  ooo 

-90 . 000 

05  000 

-90.000 

90.000 

-90.000 

.0 

-00.000 

5.000 

-90.000 

10  000 

-00.000 

15  000 

-00  OOO 

20  000 

-to  ooo 

25.000 

-00.000 

30 . 000 

-80.000 

95  000 

-80.000 

40.000 

-80  000 

45.000 

-80.000 

50  000 

-80  000 

55  000 

-80.000 

60.000 

-80.000 

65 . 000 

-80.000 

70  000 

-80.000 

75.000 

-80.000 

•0  000 

-80  000 

05.000 

-80  000 

90  000 

-80  000 

.0 

-70.000 

5.000 

-70.000 

10  000 

-70.000 

15.000 

-70.000 

20  000 

-70.000 

25  000 

-70.000 

30.000 

-70.000 

ELECTRIC  riELO 

R- COMPONENT 
2  J9J6E-I5 
2  8695C-I5 
2  50191-15 
I  34  1 5£  - 1 5 
I  1 690C -  1 5 
l  .  665  JC  - 16 
I  0 1  46E  *  I  5 
7.  4  68  JE-  16 
1  S**6HE  - 15 
l  0053E  - 15 
I  .4433C-15 
I  5424C-15 
0 . 899 1 E - 1 6 
5  66 1 OE -  1 6 
I  2947E-I5 
7  3277E-I6 
N  .707JE-I6 

1  226it-i6 
0. 386IE-27 

2  3936E  15 

3  2760C-I5 
I . 9565E - 1 5 
7  H603E-I6 
9  8767E-I6 

7  1 642C  - 16 
6.0440E-16 
0.671  IE* 16 
I  2009E-I5 
0  .  0059E  *  16 
I  ■  60  I 2E- 15 
0  086IE-I6 
I  4655C-  '5 
I  .  ieoac-i5 

8  099 IE- 16 
*  965 1 £  - 1 6 
22658E-16 

1  7085E-I6 
2 I867E-25 

2  39J6C-I5 
J.245IE-I5 
2  HI 63E - 1 5 
9.0366E-I6 
I  Q12JC-I5 
7 034IC-I8 

9  3095C- 17 


T<T  A -COMPONENT 

3  0059c -22 

2  070  J£  -02 
J  I645E-02 

3  BB^l-OB 
B  5259C -0? 

1  547|£-02 

2  2725C-02 
*  2057E-02 

6  0345E-02 

7  248IC-02 
7  6J58C-02 
"  4257C-02 
M  5224E -  02 
0  95P5E  OB 
I  IH07E-0I 
I  3*^551  01 
l  35 1  7E  -  0  I 
9  072he-O2 
0  *4?0*4E  -  I B 
I  0500E-II 
B  O05*«E-O B 

3  I  93 1 E  * 0? 

3  3272E  -  0? 

B  6262E-02 
1  6209C-02 
B  I4I6E-02 
3  9067E-O2 

5  7700C -0? 

6  98I6C-02 

7  37mc-oa 
7  I640E-02 
7  22B0E02 
0  6OO0E  -  02 
I  O906C-OI 

I  2997E-0I 

1  3082C-0I 
9  5652E-0? 

6  161  JE- 12 
B  O601E-1  | 

B  1066C-02 
3  2782C-02 
3  5 1  36E-02 

2  9284E-02 
I  9060E-02 
I  8455C-Q2 


PHI -COMPONENT 

6  0767E  -  |  | 
3  6020E  -  I  I 

3  0825C - 1  1 
B  .  53H67E  -  I  I 
I  9265E -  1 1 
I  2I00C- ’ i 

4  I 005f  I B 

6  BBS*.-  IB 
I  68WC  I  1 
B  9r'  J8C-1  I 

3  9249E  -  |  I 

4  0860E  I  I 

5  577 | E  *  1  I 
5  07O9E  -  I  I 
5.670JC-  I  I 

7  9276C -  1  I 
3  6620C -  I  I 
I  9664E  -  I  I 
i  i907t-ai 
5  9540f  t  | 

3  556 1 E -  1  I 

3  054 BE  -  | 
B  5295C  I t 
I  94  JOE  -  I  1 
I  2630E -  I  I 

4  0O26C  *  I B 
52034C-I2 
I  5370C  - 1  l 
B . 6295C - t I 
3 . 6980E - 1  I 

4  632  IE  -  I  I 
5 . 3067E - 1  I 

5  6008E - 1  I 
5.4  I  SHE- 1  I 
7 . 7156E- 1  I 
3  5074E-  |  | 

1  094  JC  I  I 

1  I40BC-2I 

5  6S20C -  I  I 
3.4I0IC-  I  I 
?.  9688C-I  I 

2  502IE-I  I 
I  9036C-  I  I 
I  3026C-I  I 
6.029OC- 1? 


MAGNI  TUOE 
6.0767E-  I  I 
B  O70JE  -0<? 
3  I645E-02 
3.2644E  02 
B  5259C  02 
I  577  IE  02 
B  27«E-02 
7 .20571  02 

6  .  J3751  -02 

7  240 IE -02 
7  6150C -02 
7  4257E-02 
7  5224E-02 
0  9505C  02 
I  I407E-0I 
I  3455C  01 

1  .35:  J| 

9  0724E  02 
0  4204E  12 
6  0467E-  I  1 

2  O054E  02 
3. 1 93  IE -02 

3  3272C-U2 
2  62621  -  02 
1  6209C-02 
2.  1 4  1 6E  - 02 
3  906 7C  02 

5  7700E-O2 

6  90 1  BE -02 
7. 374  IE -02 

7  1 64  OC  -  02 
7  2280E  02 
0  60 OK  -02 
I  O906C-OI 
I  2997E  01 

1  JO82E-0I 
9  5652E  -02 
0  I6I3E-I2 
6  0467E-I I 

2  I066E-02 

3  2782C-02 
3  5I36E-02 
2.9284E-02 
I  - 9060E -02 
I  0455C  -O2 


PHASE 
116  2122 
-52.51 10 
55  5531 

61  2927 
74  3210 
-  I  16  361  3 
I  76  2060 
151  071  I 
I  39  9473 
129  6603 
I  16.9156 
97  9J56 
70.6651 
42  4016 
22  4997 
9  9769 
I  5001 
5  4650 
166.4396 
63  7070 
52  4042 
55  4619 
61  0111 
73  2503 
“III .1011 
179  3314 
1 5 J. 7073 
1 4  I  I  025 
I  30  6O0J 
I  17  0J62 
90  00 1 2 
71  454  1 
42  0007 
22  6324 
10  0016 
I  4932 
-5  4950 
166  4035 
63.7070 
-52  4056 
-55  2004 
-60.2340 
-70.5355 
-90  3 34  7 
-163  1064 
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I  e  "ONOROLES  S/B  WAVELENGTH  •-  I  j  WAVELENGTH  apart 
DIELECTRIC  CONSTANT  •  |  5COOC  ♦  0 1  ANO  CONDUCTIVITY  » 


EAANPLE  ? 

I  OOOOE  O?  TOR  EAR  held  CALCINATIONS 


O0SCRVAT ION  ANGLES  ELEC 


theta 

PHI 

35 

ooo 

-70 

OOO 

40 

OOO 

-70 

ooo 

45 

000 

-70 

ooo 

50 

000 

-70 

ooo 

55 

ooo 

-70 

ooo 

60 

ooo 

-70 

ooo 

65 

000 

-70 

OOQ 

70 

ooo 

-70 

ooo 

75 

ooo 

-70 

ooo 

80 

ooo 

-70 

ooo 

85 

ooo 

70 

.  ooo 

90 

ooo 

-70 

OOo 

0 

-60 

.  ooo 

5 

ooo 

-60 

ooo 

1  0 

ooo 

-60 

ooo 

15 

ooo 

*60. 

ooo 

20 

ooo 

-60 

ooo 

25 

ooo 

-60 

ooo 

30 

ooo 

-60. 

ooo 

35 

ooo 

-60 

ooo 

40 

ooo 

-60. 

ooo 

45 

ooo 

-60 

ooo 

50. 

ooo 

-60 

ooo 

55 

ooo 

-60 

ooo 

60 

ooo 

-60. 

ooo 

65  000  -60  000 

70  000  -60.000 

75  000  -60  000 

60  000  -60  000 
05  000  -60,000 

90  000  -60  000 

0  -50  000 

5  000  -50  000 

10,000  *50  000 

15  ooo  -50.000 
20.000  -50.000 

25000  -50,000 

10.000  *50  000 

35.000  *50.000 

*0 . 000  -50.000 

45,000  *50  000 

50.000  *50.000 

55.000  -50.000 

60.000  -50.000 

•5  000  -50  000 


TIC  FIELD 

8-COMPONENT 

THETA  component 

6  7 | 32E  -  1  6 

3  364  01  -02 

9  6946C  16 

5  0  3261  02 

1  4476C  15 

6  198 It -02 

1  053JE-I5 

6  60  3  7(  02 

9  8092E -  16 

6  39  32E  02 

1  1 27 1 C - 1  5 

6  1554 E  02 

1  0934E  -15 

7  53!?f  -02 

1  2225E-I5 

9  M92E  02 

5  2369C  16 

1  I6I8C  01 

4  6848C  16 

!  17  Ml  01 

5  898  If  1  7 

8  63911  02 

4  09151-25 

7  3 7  9l.lt  12 

2  39  36F  15 

3  02  UF  I  | 

3  2 1 4 | f  |5 

2  I4I0E  02 

2  0795E -  IS 

3  4  1 6 7f  -02 

1  QI64E-I5 

3  01  HIE  02 

7  05O5C-  16 

1  43!  Ot  02 

7  30 i 4f  16 

2  504  *♦£  oti 

6  2  3  7  3E  -  16 

1  7094C  02 

2. 1377E- 16 

2  5I26F  02 

1  4433E  •  15 

3  00H  IF  02 

1  3007C-I5 

4  9669E  -02 

9  4206C -  16 

5  3BH9E  02 

0  252  3E  16 

5  I765E  02 

7  7720E-16 

4  9552E -  02 

4 .965  IE  -  16 

5  770  31  -02 

6  66 1 JE  -  1  6 

7  61  34E  -02 

5  7220E  -  16 

9  3I52E-02 

5  0OJ9C  -  16 

9  501  IE-02 

2. 0206E-  16 

7  086  7E-02 

4  206 1 E  25 

6  0669E  -  1  2 

2 . 3936E  15 

3  006  7E-  l  | 

2  4975C -  15 

2  1676C-02 

2  8096E -  1 5 

3  6039F  02 

1  2959C  15 

4  230'.  -02 

1 .61 J6E-I5 

4  I230E-02 

5  0440E • 16 

3  4j-»3E-02 

0  90801  16 

2  5IR5C-02 

7 . 7765C -  1 6 

2  1  OBOE -02 

1  3990E-I5 

2  70O6E-02 

7.2I64C-I6 

3  5249C-02 

9  2309C  16 

3  9S26C-02 

0  -  9601 E -  16 

3  735  If  -  02 

1  6739C-I5 

1  2342E-02 

4  7I03C-16 

3  4I06E-02 

PH]  -COMPONENT 

2  ‘*6391.  -  12 

1  I  I  ONI  l| 

2  08701  I  I 

3  05 1 Bt  ]| 

3  90441  I  | 

*  5  3211  I  I 

4  8255F  |  I 

*  69  7fef  |  | 

4  J  0‘*B»  I  i 
3  06  I  bf  II 
I  64  74f  |  | 
9  9629*  ,V 

5  23661  I  I 

3  1 8  761  II 
2  81691  II 
2  4  1841  |  i 

2  0222F  I | 

I  540BF  I  I 
9  7*,  |  n  |,> 

3  39  <91  12 

4  9582f  1 2 

1  285BE  I  I 

2  008  if  M 

2  81  ISC  || 

3  3625C - l  I 
3  6495C  I  I 
3  59891  l  I 
3  1 7?3r  I  I 
2  37951  •  I  I 

1  2845C  I  I 

7  788 If  22 
*  6320C  I  I 

2  064  Jf  •  |  | 

2  508 OF ■ ] | 

2  JI44E  |  | 

?  0I96E-  I  I 
I  60O9C  -  I  I 

1  280  I C -  II 

8  094  IC  -  12 

2  9450E  12 

3  858  K  12 

9  7 | JSC  -  I  2 
I  5?06f  I l 

1  9760f  |  | 

2  2463E-I  i 


MAGMI  TUU» 

3  3640C  02 

5  0  326C  02 

6  1 98  If  02 
6  60  37F  02 
6  391«M  02 

6  35541  02 

7  53121  02 
9  71921  02 


l 

16 1  W 

0  1 

1 

1  77JI 

0  1 

8 

639 1» 

112 

7 

37901 

12 

6 

046  71 

1  1 

2 

14  101 

62 

3 

4  1671 

02 

3 

81811 

02 

3 

4  3 1  Of 

02 

2 

50<4E 

02 

1 

70941 

02 

2 

5 1 25f 

02 

3 

888  31 

02 

4 

96691 

02 

5 

30691 

02 

5 

I765C 

■02 

4 

9552f 

0.* 

5 

770  3f 

02 

7 

61341 

02 

9 

3I52T 

02 

9 

581  || 

02 

7 

006  7f 

02 

6 

06691  - 

12 

6 

0467C  - 

1  1 

2 

18761 

02 

3 

60  39F 

02 

4 

230  71 

02 

4  . 

12301 

02 

3 

4J7JE 

0? 

2  5I85C  02 
2  I  OBOE  02 

2  7006C-O2 

3  52491  02 
3  9  326T  02 
3  73511  02 
3  2S42F  02 
3  4  |  061  02 


PHASE 
160  5371 

165  2187 
I  33  9014 
120  9902 
102  1 4  J5 

74  2274 

44  2902 
23.0940 
10  0063 
I  4422 
5  5939 

166  2969 
63  7070 
52  2006 

-54  0014 
69  1204 
67  J3I9 
04  0314 
I  30  0149 
170  4790 
155  2477 
1*1 ■ 4751 
120  0777 
J 09  5291 
00.0410 
•*7  7207 
24  1037 
10  2793 
I  .  3206 
-5.0117 
166.0510 
6  3  7070 
-52  1173 
54  3000 
-57. *21 
61.0513 
74  7121 
-97  1350 
I S9673I 
170  6291 
159  0010 
144  3026 
126  0940 
90  72 1 1 
50  0442 
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I  l  MONOPOLCS  5'»  MAVCICNOTH  --  I  J  MAVCLCNGTH  APART  --  CXAHPIC  l 

DIELECTRIC  CONSTANT  .  I  SOOOt.O  ANO  CONOUCTIVITt  .  |  0Q00E  <W  EON  fAR  HELD  CAL  CIA.  AT  1 ONS 


OBSERVATION  anOC£S 


theta 

PHI 

70 

000 

-90 

000 

79 

,000 

-90 

.000 

•0 

000 

-90 

000 

89 

000 

-90 

.000 

90 

000 

-50 

000 

0 

-HO 

000 

9 

000 

-HO 

.000 

10 

000 

-HO 

000 

15 

000 

-  *4  0 

.000 

20 

000 

-HO 

000 

25 

000 

-HO 

.000 

30 

000 

-HO 

.  OOu 

35 

.  000 

-HO 

ooo 

HO 

000 

'HO 

000 

*45 

.000 

-HO 

000 

50 

.000 

-HO 

000 

55 

000 

-HO 

000 

60 

000 

-HO, 

000 

69 

000 

'HO. 

000 

70, 

000 

-HO. 

000 

75 

000 

-HO 

000 

•0. 

000 

-HO 

000 

•5 

000 

'HO. 

000 

90 

000 

-HO. 

000 

.0 

-30. 

000 

5 

000 

-30. 

000 

10 

000 

-30. 

000 

15. 

000 

'10. 

000 

20 

000 

-30. 

000 

25 

000 

-10 

000 

30 

000 

•30 

000 

39 

000 

-30, 

000 

*40. 

000 

-10 

000 

*49 

000 

-30. 

000 

90 

000 

-30 

000 

95  000  -10  000 

60  000  -30.000 

69000  -30  000 

70.000  -30.000 

79000  -30.000 

•0.000  -30.000 

•9000  -30.000 

•0.000  -30.000 

0  -20.000 

9.000  -20000 


ELECTRIC  FIELD 

R-COMRONENT 
6  •9S3C-I6 
I -7772E-I6 
I  7IH9C-I6 

1  M97C-I6 
5  9998C-25 

2  3936C-I9 
3. I626C- 15 
2.29H9C-I9 
1  . 60 1 2C  *  1 9 
I  29H7E  -  15 
I  70H0E-15 
I . 9IH2E ♦ 19 
9  9698C  16 
7.H603E  16 
I  2H03C  -  15 
1  .  06C2C- 15 
I  3668C-I6 
H  7752C-I6 

3  6630C  16 
3.3537E-I6 
I  2795C-16 

H. 852BE-I6 

1  • 3660E  -  I  6 
J 

2  1936C-I5 
3. 33H3E  - |9 

3  I  36 5£  - 1 9 
2. 0H88E  -  15 
)  ‘♦57IC-I5 

1  961  IE-15 

2  14  79C-I5 

I.  SHI  HE  *5 
I ■ 0 1 90E  - 1 5 
I • I  I I6C-  15 
I 9377E-I5 
9  I179C-I6 
7.3277E-I6 
•  9088C  - 1 6 
2 ,  •  1 77E  -  1 6 
H.6H76C-16 
2 , 2602C -  1 6 
I  3996C-I7 

1  .  7*0 IE -29 

2  3936C-I9 
2.623IE- 19 


THE  T  A  -COMPONENT 
V  7029C-02 
b  I  lose  02 
6  5209C-02 
*4  9I50E-02 
H  232  IE  - 1 1 
**  6J20C  -  I  I 

2  2HHBE  -02 

3  833HE -02 
H  7  J7H£  - 02 
■*  96  I  5E  02 
H  6975C  02 
3  9H69E  02 
3  I  58  SE  -  02 
2  7J5HE  02 

2  798Ht  02 

3  0  I  7 1 £  02 
2  9I83E-02 
2  3228E  -  02 
I  39821  02 

1  17871  02 

2  07961  -02 
2  657 if  02 
2  I68HI  02 

1  9095E12 
5  2366C  I  I 

2  3I07E  -02 
H  0973E  -02 
9  3I90C  -02 
5  97  391  02 
6.0983E  02 
9  7062C  02 
9  I 909C  02 
H.967K-02 
H  IH2IE-02 
H  03H1E  02 
H  I0IK  -02 
H  09H2C  -02 

3  0H7OE  -  02 
3  3352E -02 
?  6399C  02 
I  •7391-02 

1  07| 7£ -02 
8  39**  7t  - 1  3 
9 . 6820E -  I  I 

2  3932C -02 


PHI  -COMPONENT 
2  2106C -  I  I 

2  0H87E  I  I 

1  9552E -  I  I 
0  H5I3C  12 
9  I  389C-22 

3  8B67E  I  I 

2  *4*49H£  -  I  I 

2  2702C  I  I 

2  I  03  IE  -  |  I 
I  9306C  I  I 
I  7359E  -  I  l 
I  50  SUE  -  I  I 
I  229 Of  I  | 

8  951  IE  -  12 

5  28H6C  1 2 
I  7577E-12 
2.97H7C-I? 

6  1398E-I2 

0  *400JC  -  12 
9.56I0E-I2 

9  I273E  - 12 

7  I027E-  12 

3  9709E  -  12 

2  H133E-22 

3  0233E-I  I 
I  9S65C  - 1  I 
I  85J0E  I  | 

I  77B6E  I  I 
1  7 | O0C -  I  I 
I  6386C-II 
I  .55 1  HE  -  I  I 
I  H39HC- I  I 
I  2967E - 1  | 

I  I229E-II 
9  2I73E-  12 
7  0609E -  1 2 
H.925IE-I2 
3  0067E-I2 

1  ‘♦957E-I2 
9  7367E-IJ 
3  672HE-I3 

2  7977E-I3 

1  0760E-23 

2  O60IE-I I 
I  3623E-I  I 


HA  ON  I  TUOf 

N  7025E-02 
6  11031-02 
6  5209C -  02 
H  9I50E-02 
H  2 32 IE  -  1 2 
6  0H67E  -  I  I 

2  29*491  02 

3  0J3HE  02 
H  737HE  02 
H  98151-02 
*4  6575C  -02 
3  9H69E-02 
3  1 58 3f  02 
2.7I5HE-02 
2  798HE  02 
3 . 0 1  7 1  f  -  02 
2  9I03E-O2 
2  3228E  02 
I  3982C-02 

1  I  7871  -  02 
2.0796C-02 

2  657IC-02 

2  I68HE-Q2 
I  9095C-I2 
6  0H67E  1 1 
2. 3I07E-0? 

H  0973E  02 
5. 3I98E-0? 
5  97391  02 
6 . 090 SE  02 
9  7062C-O2 
9  I9B9C-02 
H  5676E  02 
H  IH2IE-02 
H  03HIE-02 
H  1 0 1 K - 02 
H.09H2C-02 
3.0H7OE-O2 

3  3352C  -02 
2  6390E -02 
I  07  S0E  -  02 

1  07J7E-02 
0  39H7E-I3 
6 . 0H67E  - 1 1 

2  3012E  02 


PHASE 
27.2373 
10  7769 
I  05OS 
-6.3309 
165  H 820 
63  7879 
-51  9253 
53  7676 
56  6H HO 
-61  0666 
68  02H« 
79  H 766 
98  6210 
I27  6H75 
196  7538 
177  H79I 
I67.60SO 
152  5092 
123  6922 

52  3117 
13  5212 

I0H9 
8  H2IH 
163  2206 
61  7|7| 
-51 , 7IH 7 

53  2161 
55  50  JH 
58. *407 
63.66H6 

-  70 . 6905 
•0  9330 

-  95. 5 1  OH 
I  I H  0983 
I  33  2809 
IHB  9558 
159  *»51 
I67.088H 
171  HH8S 
171  8919 
175.2012 
177  2973 

- 3.HH71 
6  3  7878 
91  H991 
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I  ?  MONOROLCS  5/0  WAVELENGTH  --  |/J  WAVELENGTH  APART  --  EXAMPLE  ? 

DIELECTRIC  CONSTANT  -  I  5000E*0I  ANO  CONOOC  T  |  V 1  TV  •  I  00001 -OP  f  OR  FAR  MELD  CALCULATIONS 


OBSERVATION  ANGLES 


theta 

PHI 

10  000 

-P0.000 

15.000 

-PO  000 

P0.000 

-PO  000 

P5  000 

PO  000 

30  000 

-PO  000 

35  000 

-PO  000 

VO  ooo 

-PO  000 

*5  000 

-PO  000 

50  000 

-PO.OQO 

55  000 

-PO  000 

60  000 

-PO  000 

65  000 

-PO  OOo 

70  000 

-PO  000 

75  000 

-PO  000 

00.000 

-PO  000 

05  000 

-PO  000 

90  000 

-PO  000 

.  0 

-  10.000 

5.000 

-10  000 

10  000 

-10.000 

15  000 

-10  000 

PO  000 

-10,000 

P5  000 

-10  000 

30  000 

-10  000 

35  000 

-  10  000 

VO  000 

-10,000 

*5  000 

-10.000 

50.000 

-  10  000 

55  000 

-to  000 

60.000 

- 10.000 

65,000 

-10.000 

70  000 

-10.000 

75  000 

-10  000 

00  000 

-10.000 

05,000 

-10.000 

90  000 

-10  000 

,0 

.  0 

5.010 

0 

10  000 

0 

15  000 

0 

PO  000 

0 

P5.000 

0 

30.000 

0 

35.000 

0 

VO  000 

.0 

ELECTRIC  FIELD 


P  1 557E  *  1 5 
3  595BC - l 5 
J  7?PiE-l5 


l  ??*7E-0l 
!  ?9 1 6C  -  0  I 
I  30P9E -01 


R- COMPONENT 

THETA -COMPONENT 

PHI  COMPONENT 

P.0V75C -  15 

V  306V 1 -OP 

1  33351  -  1  1 

1  .7PSVE-  15 

5  956 91  -  OP 

1  3PP7E  -  |  t 

P.  MOPE  ■  15 

1  06 1 01  -  Op 

1  3P**0f  l  i 

t  790PC  1 5 

■*  6606EOP 

1  33391  1  1 

1  9P70C-15 

7  06r>0C  OP 

1  3V  3Pf  II 

1  . 77T?E -  15 

7  65501  OP 

1  3V551  l  l 

P  00I5E •  15 

7  P06*l  OP 

1  33361  1  1 

1  1 PP6E  -  1  5 

6  7P0I‘‘  -  0? 

1  30 1  31  II 

7  *6831  16 

6  V7361  OP 

1  PVVPf  11 

9.5505E  -  16 

6  606  *E  OP 

i  1 5981  -  1 1 

0  9509C  16 

7  06651  OP 

1  0*0*1  1  1 

6  7760E  -  16 

7  60011 -OP 

9  IP371  ip 

1  .01301-15 

7  93031  OP 

7 . 555V 1  1  P 

v.  O0T3E  - 16 

7  77971  OP 

5  0PVV1  IP 

P  VP86C - ! 6 

6  0P9O1  OP 

3.  ’ 061  IP 

1  3895E  1 6 

v  60*01  OP 

P  OP  371  IP 

V  .  55P5E  -  P5 

3  0P*9E-IP 

1  P0V01  pp 

P  3936T  1 5 

5  95V01  1  | 

1  05001  1  1 

P  95P0C-15 

P  V600E-0P 

7  08P01  IP 

3  v?9vt - (5 

v  69001 -OP 

7  I  1011  IP 

P.00I5E- 15 

6  6P5VF-0P 

7.P75V1  IP 

P  37iv£ -  15 

0  1 9991  0? 

7  53071  |p 

P.5095C-15 

9  356P1  OP 

7  00081  -  IP 

P  563 IE  -  15 

1  006P1  -  01 

0  P95P1  1 P 

P.7V65E-I5 

1  0PBP1  0 1 

0  71791  IP 

P  566 PE •  1  5 

1  01071-01 

9  10511  IP 

P  V58PE-I5 

9  69991 -OP 

9  J98P1  IP 

1  0O73E  15 

9  37331  -OP 

9  53PI1  -  IP 

?  00? IE  -  15 

9  50091 -OP 

9. WIVE  ip 

1  65051-15 

1  03001-01 

9  06731  IP 

1  J506C -  1 5 

1  1 5?  71  -  01 

0  36V PE  IP 

P  .0P60E-  »5 

1  P6601-0I 

7  30751  1? 

0, 9P07f  -  J6 

1  10  391  01 

5  09761  1 P 

5.57P0E  16 

1  I909C-0I 

V  1 656C  1 ? 

1  VIP0E-I6 

0  P35VC-0P 

?  1  7 1  01  -  1 P 

1 .OOVIE-PV 

6  89961  1 P 

1  301"!  PP 

P  39361-15 

6  0V67£  -  |  j 

91*00 

3  IP07E-I5 

P  53071-0? 

11*00 

3  P00OE-I5 

5  00051-0? 

c 

o 

o 

3  1VP6C-I5 

7  10 1 61  -  OP 

01*00 

P. 710*1- 15 

9  3V66C-0? 

01  *00 

P.5317E-  15 

1  .  1 0  301  -  0  1 

01*00 

OC  *00 
Of  *00 

oe*oo 


MAGNI TUW 

V  386V!  OP 

5  9565*  (),» 
7  Ob  I  01  OP 
7  b886t  TV 
7  B6PHI  OP 
7  655«  OP 
7  (*06  it  Or" 

6  7P0 1 1  OP 
b  V  7 16t  OP 

6  606*{  OP 

7  066bt  OP 
7  600  It  OP 
7  930  M  Op 

7  7  7971  OP 
6  BP901  Oc’ 

V  60VO!  OP 
3  0PS9T  IP 
6  0*b7C  I  I 
P  *6001  Or' 

V  69O0C  JP 
6  6P5VI  OP 

8  I999T  OP 

9  356P1  OP 
I  005P10I 
I  0P8P1  0 1 
I  0I07E  01 
9  69991  OP 
9  S7J*  OP 
9  50091  OP 
I  0  3001  o: 

I  I5P71  01 
I  P660E  01 
I  J039C  01 
I  I  90 9t  0  I 
0  P35V1  OP 

6  899bf  IP 
6 . 0*671  t  I 
P  51071  OP 
5  0005C  OP 

7  3ni6f  0? 
9.  S*66E  OP 
I  10301  01 
I  PP*  7f  -  0 1 
I  P9I6C  01 
I  30P91  01 


PHASE 
4P  60P0 
5*  *990 
57  1037 
60  7WJ 
650097 
7P  076? 
HP. 7010 
95  9377 
I  IP  PP5J 
IP9  3306 

-  I  MV  390N 
156  1300 
169 . 930P 
171  6700 

-  I  77  39  30 
I  76  9560 

10  751  I 
63  7870 
51  P756 
5P  106* 
-53  6*»|| 

-  55  7551 
-50. 716** 

6P  8P*»J 
60  5955 
76  5730 
07  705? 

-  I  OP  7H3H 

-  IPO. **518 
137. 0700 
15?. £650 

- 163.  10*3 
-I7|  P09P 
177, 70P5 
176  156P 

-  I  I  7009 
63  7070 
51 . 06P9 
51  737* 

-5?  9106 
-59 . 70** 
-57 .  P507 
- 60 . 0*0 I 
65.9000 

-  7  3  00 IP 
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I  i  HONOROLES  9/*  WAVELENGTH  --  |/J  MAVELENOTh  APART  --  EXAMPLE  l 

OIELECTRIC  CONSTANT  .  I.SOOOCOI  AND  CONDUCTIVITY  .  I  OOOOE-Oi  FOR  FAR  F  IELO  CALCUIAT  IONS 


OBSERVATION  ANGLES  ELECTRIC  F  IELO 


theta 

PHI 

•-COMPONENT 

H5  000 

0 

3  500 HE -  1 6 

50  000 

0 

2  5I77C-I5 

55.000 

0 

1  6910E-I5 

60  000 

0 

2  7822E-15 

65.000 

0 

1  H0H3E-I5 

70.000 

0 

H . 965 1 E -  1 6 

75  000 

.0 

2  296IE- 15 

■0  000 

0 

7 . 77**  JC  -  1 6 

•5  000 

0 

3  6639E  •  16 

90  000 

.0 

1  29H1E-2H 

0 

10.000 

2  39S6C-I5 

5  000 

lO.OOo 

3. I632E-  15 

10  000 

10.000 

3. 736HE-15 

15  000 

10  000 

2  25H2E-15 

?0 . 000 

10  000 

3  H9HHC-  15 

*5  000 

io.ooo 

2 . 7756E -  1  5 

SO  000 

10.000 

2  9790E-15 

35  0  00 

10.000 

5  61  7J£  -  15 

HO  000 

10.000 

3  1009E-I5 

H5.000 

10.000 

1  •  7772C  -  1 5 

50  000 

10  000 

1  9060E  *  15 

55  000 

10.000 

3. 30091 - 1 5 

60  000 

to  000 

3 . 953HE  -  1 5 

85  000 

10.000 

2.220HE-I5 

70  000 

10.000 

3.  1H02C-I5 

75  000 

10.000 

1  J609C-I5 

80.000 

10.000 

9.7799E-I6 

•5.000 

10.000 

1  9107E  16 

90. 000 

10.000 

1 .•5I5C-2H 

0 

20  000 

2 . 1936C -  1 5 

5.000 

20.000 

3  I0H6E-I5 

10.070 

20.000 

3  670 IE  - 15 

15  000 

20 . 000 

2  0837C-15 

20  000 

20.000 

3  5IO0E-I5 

25. 000 

20.000 

3.390HE-I5 

SO . 000 

20 . 000 

3 . H68HE -  15 

15  000 

20.000 

6  2666C-I5 

HO. 000 

20.000 

5  2779E-I5 

HS  000 

20.000 

2  H3H9C-I5 

50.000 

20.000 

2  6659E  -  1 5 

55.000 

20 . 000 

2.360HE-I5 

•0 . 000 

20.000 

3 . 972 1 E - | 5 

•5.000 

20.000 

2.220HC-I5 

70.000 

20 . 000 

1  W7IE-15 

75.000 

20.000 

1  •  79H IE- 15 

THET  A -COMPONENT 

PHI -COMPONENT 

1  2715E-01 

.  OE  *00 

1  232HE-0I 

OE  *00 

1  2H20E-01 

OE  ♦  00 

1  3H5HE-0I 

. OE  *00 

1  5207E-OI 

. OE  *00 

1  7J71E01 

OE  *00 

1  e065€-0l 

OE  *00 

1  67  72E -  0  1 

OE  *00 

i  nmt  oi 

oc*oo 

9  8H9JE  \a 

■  OE  *00 

5  95HBT  -  1  1 

1  0500E -  1 I 

2.6I67E-02 

7.HI70E -  12 

5  3055E -02 

7.0IH2E- 12 

7  96261-02 

0  30O0E -  1 2 

1  0H60E-01 

9  I250E- 12 

1  26HHE0I 

1  00H7E  -  1  1 

1  HJ50EOI 

1  1 I2HE  II 

1  5H20C-OI 

1  2  3 OBt  -  1  1 

I  580HC  >1 

1  3522E  -  1  1 

1  5566E -  0 l 

l  H652E -  1 1 

1  5097E-0I 

1  5557E-I  1 

1  5112E-0I 

1  6075C-I 1 

1  6307E  01 

1  6037E-I  1 

1  B6HHE  01 

1  529HE-I  1 

2.  1  IS3E-0I 

1  J7H0E -  1 1 

2.2536C0I 

1  I339E-II 

2  I097E-OI 

0  I375C-I2 

1  H0IOE  01 

H  2929E - l? 

1  2H69E-II 

2  5750E-22 

5  602OE  1 1 

2. 069  IE  - 1 1 

2  691 7E  02 

»  H926E-I  1 

5  596HE  02 

1  603HE-I  1 

0.507HE  02 

1.751 IC-I  1 

1 • I502C-01 

1  . 9393C  -  1  I 

J  HIHIE-OI 

2  I699E-I 1 

1 . 62B2C -  0 1 

2.HJ62E-I1 

1  -■'7IHE-0I 

2  73I2E- 1 1 

l .830HE  01 

3  0356E-M 

1 .01 IOE-OI 

3  323IE -  1 l 

l  7537E  01 

3  5597E -  1 1 

1 .7HJ1E -01 

3.7055C-1  1 

1 ■ 07052  -  0 1 

3  7I97E-I 1 

2.  IH22E-0I 

3 . 565 1 E  - 1 1 

2.HH05C-O1 

3  2I55C-I 1 

2.620K  01 

2  661  IE- 1  | 

NAOMI  TUOC 

PHASE 

1  27I5C-0I 

83  3H7J 

1  232HE-0I 

97  62HH 

1  2H20E  01 

-  115  5959 

1  3H5HE-0I 

-I3H  3HH2 

1  5287E-0I 

-150.2797 

1  7 1 7  If -0 1 

-162  23H0 

1  0O65C-OI 

171.0011 

1  6772C-01 

177  Wit 

1  1 7 | HE -0 1 

175  9119 

9.8H9IC-I2 

-12  095H 

6  0H67E  - 1  1 

63  7979 

2.6I67E-02 

50  9629 

5  3055(02 

51  .**03 

7  96261-02 

52.3175 

1  OH60C-OI 

53  9907 

1  26HHE-OI 

56  ISOI 

1  .  H350C  -01 

-59  H639 

1  5H28I-0I 

6H. 1371 

1  50OHI  -  0 1 

70  9516 

1  5566C-0I 

-90.5936 

1  5097E-0I 

9H.HH00 

1  51  I2E-0I 

1 12  5H26 

1 . 63071 -01 

I32.M03 

1  96HHE  01 

-IH9  0520 

2. 1  I03E-OI 

161.7139 

2  25S6E-0I 

170  9907 

2  I097E-OI 

-177.9390 

1  H910E-OI 

175  65IH 

1  2M69E-II 

12.2995 

6  0H67EI  1 

63.7979 

2  69I7E-02 

-50  6900 

5  596HE-02 

-50.9963 

9  59 THE -02 

-51 .9219 

1  I502C-OI 

-53  2317 

1  HIHIE-OI 

-55  36HH 

1  6292E-OI 

59.H5HH 

1 . 77 1  HE -0 1 

-62  9910 

1  930HE-01 

-69  11 IH 

1  61 IOE-OI 

-79  7021 

1  7537E-0I 

-92.2951 

1 .7HJIE-0I 

-1 IO.H33I 

1 . 9705E-01 

-  110.5657 

2. IH22E-0I 

- 1  Hi . 2022 

2.HH95E-0I 

-161.3602 

2  •  6209E  -  0 1 

-170.9002 
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I  i  NONOPOl.es  5/e  MAVCLCNOTM  --  1/3  MAVClCNGTM  APART  ■-  CXAHPLC  l 

DICLCCTRIC  CONSTANT  .  I  SOOOC  *0 1  ANO  CONDUCTIVITY  .  |  OOOOC-Oa  FOR  FAR  FICLO  CAL  CUT  AT  IONS . 


O0SCRVAT | ON  ANOLCS  CLCCTRIC  FICLO 


thcta 

PHI 

P-COMPONENT 

TME  ta-cohponent 

80.000 

20  000 

6  0109016 

2  H6H7E-0I 

85  000 

20.000 

3 . 3887C  - 1 6 

1  7  3m  BE  -  0  1 

90.000 

20.000 

1  6890E-2H 

1  H623E-  1  1 

0 

30.000 

2  J936C-  15 

5  23661  - 1  1 

5  000 

30  000 

3  9629E-I5 

2  76  1  6E  -  02 

10.000 

30  000 

H  3002E-15 

5  86H7E  *  02 

15  000 

30  000 

3  5H23E-I5 

9  I579C  02 

20.000 

30.000 

3  0627E  -15 

1  2HH3E  01 

25  000 

30.000 

3.  3009E-  15 

1  5H76E-01 

30,000 

30.000 

5  I709C-I5 

1  7983E-0I 

35  000 

30.000 

5  H6I6C- 15 

1  9700E-0I 

HO  000 

30.00* 

h  1 B95£ - 1 5 

2  0HH6E-0I 

H5  000 

30.000 

7  1  063E  - 15 

2  02551  -  0  1 

50.000 

30  000 

2  6053E-  15 

1  955HE01 

55  000 

30  000 

3  662 1 t  ■ 1 5 

1  929H1-0I 

60 . 000 

30  000 

2  6->J0£  -  15 

2  05701-01 

65 . 000 

30,000 

l  097 1 E -  15 

2  3536E  0  1 

70  000 

30.000 

1  09  7IE-I5 

2  6975F-0I 

75.000 

30.000 

1 .776HE  |5 

2  0965E  0 1 

80.000 

30.000 

9  0632E  16 

2  7305C  01 

65  000 

30.000 

7  920 ! f -  16 

1  9r?H5t  01 

90  000 

30  000 

2  1  765E  -2H 

1  62261  •  1  1 

.0 

HQ  000 

2  3936E  15 

H  6320E  1  1 

5  000 

HO  000 

3  99J1E-  15 

2  82H3E  02 

10  000 

HO, 000 

3.6557E- 15 

6  10311  02 

15  000 

HO. 000 

3  6330CI* 

9  659HE  02 

20 . 000 

HO. 000 

3. 701  3f  - 15 

1  3260E  01 

25,000 

HO. 000 

3  926HE-I5 

1  66  !  9C  0  1 

30,000 

HO. 000 

H  8690E  - 15 

1  9H  IBC  -01 

35  000 

HO, 000 

5  56HHE-15 

2  1 Jm6C  01 

HO. 000 

HO. 000 

H  5722E-J5 

2  21  HOC -01 

H5.000 

HO. 000 

H  636HE - »5 

2  .  1  96H1 -  0  | 

50.000 

HO. 000 

H  0288C  -  15 

2  II  I0C  -01 

55  000 

HO  000 

H  5O0HE-I5 

2  068HE  01 

60. 000 

HO. 000 

2.5I2IE* 15 

2  I098E-OI 

65  000 

ho. 000 

2 . 0H  36E  - 1 5 

2  H99HE-0I 

70.000 

HO  000 

2  26HHE-I5 

2  0667C-OI 

75.000 

HO. 000 

2  2267E  -  1 5 

3  08231-01 

•0  000 

HO. 000 

H.5776E- 16 

2  9085C-0I 

•5.000 

HO, 000 

5 . 5780C  - 1  6 

2  05I2E-0I 

90.000 

HO. 000 

2  570IE-2H 

l  7?98€ - 1 l 

.0 

50.000 

2  3936E-I5 

3  606  7£  - 11 

5.000 

50.000 

3.3H20E- 15 

2  8760E-02 

1 0  000 

50.000 

H  7090E-  15 

6  3056C -02 

15.000 

50,000 

3  3039C  I5 

1  ooeiE-oi 

PHI  -COMPONENT 

MAONI  Tu« 

PHASE 

1  9IHIE  1  1 

2  H6H7E  01 

-177  99HI 

1  OO06E -  1 t 

1  73H01  01 

175  5332 

6  067?E  -?2 

1  H623E  1  1 

-  12  H275 

3  0233C  - 1  1 

6  0H67E  -  1  1 

63  7878 

2  22H0E  -  1  l 

2  76161  02 

-50  5I7H 

2  H 302E •  1  l 

5  86H71  02 

50  7  OH  3 

2  6928E -  1  1 

9  15791  02 

-51 , H 1 75 

3 . 0202E  -  1  1 

1  2HH31  01 

52  7198 

3  H | 52E  -  l  l 

1  5H761  -  01 

-5H  7390 

3  B7?6E  1  1 

1  79831  -  01 

57  699H 

H .  376HE  -  1  1 

1  9700E  0 1 

•61 . 9751 

H  0967E  1  1 

2  0HH61  0  1 

68  I9HI 

5 . 30951  1  1 

2  02551  0  1 

-77  JH5H 

5  79  7  31  1  1 

1  955HI  0 1 

90  7172 

6  05H51  1  1 

1  929H1  01 

108  882H 

6  092HE  |  | 

2  05701  01 

129  HI03 

5  0H961  1  1 

2  35  361  01 

1H7  5703 

5  20251  1  l 

2  69751  0 1 

-  161  099H 

H  J757E  1  | 

2  89651  01 

170.7HIH 

3  IH09E  1  1 

2  73051  01 

-  1  78  03H8 

1  6590E  1 1 

1  92H51  01 

I75.HH79 

9  90571 -22 

1  62261  || 

12  5237 

3  B867E  1  1 

6  OH  6  71  |  | 

63  7878 

2  909HE  1 1 

2  B2H3E  -02 

50  J77H 

3  2222E  1 1 

6  1 03 1 C -  02 

-50.H621 

3.61 09E  II 

9  659H1  02 

51 . 0925 

H  007 1  £  || 

1  32601  0 1 

-  52 . 31  >5 

H  65601  1  1 

1  66191  01 

5H  2579 

6  3I09E  -  1  1 

1 . 9H  I8E  01 

57  I25H 

6  0290E  1 1 

2  1 JH61  01 

-61  2879 

6  767HE  1 1 

2.21901  01 

-67. 9609 

7  H6H6E  1  1 

2  I96HE  01 

-76.3338 

8  OHOOE  1 1 

2  II  101  -01 

89  5399 

0  H0I6E  -  1  1 

2  068H1  01 

-  107.7006 

8  H550C -  1 1 

2  10981  01 

128.5177 

8  1 I6IE •  1  1 

2.H99HC  01 

-1H7.0805 

7  126HE  -  1  1 

2  066 7E  01 

-  160.8980 

6  0658E  t  1 

3.082SE  01 

- 170  6962 

H  36  SHE  -  1  1 

2  90051  01 

178.0660 

2  2993E-  1  1 

2  0512E  01 

175.1826 

1  383  IE -2 1 

1  7298E  1  1 

-12  5981 

H  6320E  1  l 

6  0H67E  II 

63.7878 

3  5I7HE- M 

2  87001 -02 

-50.26IH 

3  93B0C  1  1 

6  3058E  02 

-502680 

H  H512E  -  1  1 

1  .00811  01 

50.8377 
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l  2  "ONOPOLES  5/0  WAVELENGTH  --  |/J  WAVELENGTH  APART  -*  EXAf*L£  2 

OlflECTRIC  CONSTANT  ■  1.50001*01  ANO  CONDUCTIVITY  -  I  .00001-02  EON  FAN  FIELD  CALCULATIONS. 


8 

* 

~m 

< 

ION  ANGLES 

tmita 

PHI 

20  000 

90.000 

25  000 

50.000 

30  000 

50.000 

35  000 

50 . 000 

40  ooo 

50  000 

45.000 

50.000 

50  000 

50.000 

55  000 

90.000 

60 . 000 

50.000 

65  000 

50.000 

70.000 

50.000 

75  000 

50  OOo 

60 . 000 

50.000 

95.000 

50.000 

90  000 

50  000 

0 

60.000 

5  000 

60.000 

10.000 

60 . 000 

15.000 

60.000 

20  000 

60  000 

25.000 

60.000 

30.000 

60.000 

35 . 000 

60.000 

40.000 

60.00U 

45  000 

60 . 000 

50  000 

60.000 

55.000 

60.000 

60 . 000 

•0.000 

65.000 

60.000 

70.000 

60.000 

75.000 

60.000 

00.000 

•0.000 

05.000 

•0.000 

90 . 000 

60.000 

0 

70.000 

5.000 

70.000 

10.000 

70  000 

15.000 

70.000 

20.000 

70.000 

25.000 

70.000 

30.000 

70.000 

35 . 000 

70.000 

40.000 

70.000 

45.000 

70.000 

50.000 

70 . 000 

ELECTRIC  FIELD 

R -COMPONENT 

3  O05OE-15 
3.4S42C-15 
5. I709E-I5 
5 . 074  It-  15 
V77KC-I5 
5.4672C-I5 
3.5537E-I5 
5.  I  26  3E  -  1 5 

4  9302E-  15 
2  N9K-I5 

1  7342C-I5 
I 0704E-I5 
9.002IE-  16 
6.74221-16 
2.04  17E-24 

2  3936E-I5 
4.4I7IE- 15 
3. 99?  JE-  15 

3  096 7£  - 15 
3 • 2953E-  15 

5  674IC-I5 
6 . 0606E -  1 5 

3  4604E-15 

4  .  9690E  -  1 5 
4.  I792C-I5 

6  .  224  7E  -  1 5 
4 .0214E-15 
I .7342E-I5 

а.  39I5C-I5 
8 . 0O07E- 15 
4  01561-15 
I  .5545E-I5 
5.551  IE-16 
I  . 3705C-24 
8  39361-15 
4  504  IE  - 15 
4.6242C-I5 
3  ?97EE-I5 
3,45421-15 
3. 61401-15 
‘♦.ewE-is 
5.50441-15 
4 .  965 1  £  -  1 5 

б. 2604E-J5 
3 . 7060E-  15 


T*C  T  A -COMPONENT 
I  3936E-0 I 
I  7554E-0I 
8  057 |£-0 | 

2.204  he -oi 

8  J533C-0I 
8  3247E-0I 
8  2252C-0I 
8  164  IE -01 
8.8 755E-0I 
8  5687C-0I 
8  96741-01 
3 .  1 9 1 OE  -  0 1 
3.01 I6E-0I 
8  lanoE-oi 
I  .  79I2C-I  I 
3.02331-1  1 

2.92111-02 

6.4670C-O2 
1  04I5C-0I 
I  446SE -0  I 
l  .0*741-01 
8  I44JE-0I 
8  3607E  -  01 
2.4506E  -01 
2 , 4  I 491  -01 
8  30161-01 
8  .  22**1 - o i 
2.32*11-01 
8 .6351(01 
3,01701-01 
3 .  2429E  -  01 
3.0596E-0I 
8.  I57JE-0I 
I.BI9IE-I I 
8  066 1 E -  I  I 
2  953  IE -02 
6. 50591 -02 
1  0656C -01 

1  .40*71  -OI 

1 .  B7B2E -01 
2.2050C-0I 
2. 42621 -01 

2  5I53E  -01 

2. H730C-0I 
2 . 3406EOI 


k*MI  -COMPONENT 
5 . 07I0C  - 1 1 

5  6045C -  1 1 

6  6429C  -  1 1 

7  5564C - 1  I 

*  .*91  IE-1  I 
9  3674E - 1  I 
I . 00951 - 1 0 
I  O520E-IO 
I  O502E -  I  0 

1  0143E- 10 
9  1*381-1  I 
7.S6I4C-I  I 
5  *3* IE -II 

2  .  B6 1  BE  -  I  I 
I  .72131-21 
5.23661-11 

*  0222E - 1  I 

*  5* I0E - 1  I 
5.  16391-1  I 
5  901 1 E -  I  I 
6.78I9E-  I  1 
7.77441-1  | 

5  ,  0494C  -  I  I 
9  94  IK- I  I 
I  0956E -  I  0 
1  .  I 70OE -  I  0 
I  22771-10 
I  . 23I6E- 1 0 
I  .  I704E- 10 
I  .  0604C  -  I  0 
9 . 7557E -  I  I 

6  295 IE  -  I  I 

3  3076E - 1 1 
I  .90951-21 
5 . 60201 -  I  I 

*  . *0061- 1 1 
4 . 999IC - 1  I 
5. 70501-11 
6.5455C-I! 
7.5255E-1 I 
•  ■  6326E-  I  I 
9 02511-1  I 
I  .  I030E-  1 0 
I  21*31-10 
I  ■  30 J4C-  1 0 


MAONITUOC 
I  3939E-0I 

1  75541-01 
2.05711  01 

2  26441-01 
?  35331-01 
2. 324  71-01 
2.2252E-0I 
2. 16*1101 
2.27551-01 
2 . 5M7E  -0 1 

2  96741-01 
3. I9IOC-OI 

3  01  I6C-0I 
2. 1 2401-01 

1  79121-11 
6.04671-1 I 

2  921  3E -02 
6 . N67NE -02 
I  0*151-01 
I  44601-01 

1  .02741-01 
2.  IHH3E-0! 
2.3607E-OI 
2 . 4506C -0 1 
2.41 491-01 

2  30161-01 
2.22441-01 
2. 324  3E-0I 

2  635 IE -0 1 
3.0I70C-0I 
3 . 2H29E-0I 

3  05961-01 
2.  15731-01 
I  •1911-11 
6 . 04671  -  I  I 
2.953IE-02 
6  59591-02 
I  06561-01 
I  40471-01 

1  .07021-01 

2  20501-01 
2.42621-01 
2.51531-01 
2.47SOC-OI 
2  34061-01 


PMAS1 
-52.0091 
53.0910 
56  6929 
-60  7717 
-66  7350 
75.5727 

-M  6464 

106.7905 
-  127  0200 
-146.6050 
160  7397 
-170.6607 
170  0905 
175  3314 
12.6522 
63  7070 
-50. 1704 
-50.1193 
-50.6460 
-51 .7791 
-53.6217 
-56.3751 
-60.3930 
-66.2764 
-75.0106 
•7.9010 
-106. 1037 
-127.2077 
-I**  nm 
-160.6177 
170.6334 
-170. 1093 
1752920 
•12.7060 
61  7071 
-50. 1051 
-50.0144 
-50.5124 
-51.6200 
-53.4356 
-56. 1567 
-60  1324 
-65.9597 
-74.6215 
-97.5163 
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I  ?  MOKOrOl.CS  S'«  WAVELENGTH  --  |/J  WAVELENGTH  APART  -•  EXAMPLE  l 

DIELECTRIC  CONSTANT  ■  I  5000E  *0 1  ANO  CONDUCTIVITY  •  I  OOCOE-O?  FOR  FAR  FIELD  CALCLX.AT  IONS 


OBSERVATION  ANGLES  ELECTRIC  FIELD 


tneta 

PHI 

8-COMPONENT 

theta-ccx^ohiht 

PM  1 -COMPONENT 

HAGNI  not 

PHASE 

55.000 

70.000 

3  7568C -  1 5 

8  8505C-O1 

1  35591  -  1  0 

8  85051  01 

-  105.6105 

60  000 

70.000 

4.31131-15 

8  34081-01 

1  3577E-I0 

8  3408E  0 1 

186  9069 

65  000 

70.000 

8. 88040-15 

8  654?E  01 

1  89661  1 0 

8  65481  0 1 

146  1065 

70.000 

70.000 

8.9790E-  15 

3. 0349E-0I 

1  1 6401  1 0 

3  0  3491-01 

160  5897 

75.000 

70  000 

8  8548C-  15 

3 . 8599C  -  0  1 

9  6048E  1  1 

3  85991  01 

-170.6136 

BO  000 

70.000 

6. 69051  16 

3  0  74  i  E  •  0 1 

6 .08681  -  1  1 

3.074  IE  01 

-170  1889 

05  000 

70  000 

4  46741 -  16 

8  I669E-0I 

3  68181  1 1 

?  1 669E  0 1 

175  8634 

90 . 000 

70  000 

9  6 1 071 -  85 

1  087  IE- |1 

8  I774E  81 

1  B87  1C  1  1 

-18.7385 

0 

Bu  .000 

8  J936C  *  15 

1  0500E  -  1  1 

5  95401  -  1  1 

6  0467E  1  1 

63.7070 

5.000 

ao  ooo 

4  59 1 8C -  1 5 

8  97851  08 

4  6350E  1 1 

l  97851  08 

-50  0650 

10  000 

80  000 

4. 3356C-I5 

6  65771-08 

5  88851  1 1 

6  65771  08 

-499580 

15  000 

80  00o 

3  14811-15 

1  00081-01 

6.04441  M 

1  00081  0 1 

-50  4  334 

?0  000 

80  000 

4  4367E-I5 

1  5074E-0! 

6  9440C  -  1  1 

l  5074E  01 

-51 .5865 

n  ooo 

80  000 

5  67m E -  15 

1  90041 -0 I 

7  98971 -  1  1 

1  90041  01 

-53  3865 

30.000 

80  000 

4  094  3E  -  1  5 

8  84051  0! 

9  16671  •  l  1 

8.84051  01 

-56.0806 

35  000 

80.000 

5  36601-15 

8  4640E -01 

1  04  30E  -  1  0 

8  4640!  01 

59  9795 

*0 . 000 

80  OOO 

6  3504  f  -  1 5 

8  558 OE  0 1 

1  170  IE  10 

8  55801  0  1 

-65  7733 

45  000 

80  000 

8  5B95E - 1 5 

8  5050E -01 

1  8069E  1 0 

8  50501  0  1 

-74  3916 

50  000 

80.000 

3.  1 7  J5C - 1 5 

8  37341-01 

1  .  3797E  I  0 

8  37341  01 

-07  8408 

55 . 000 

80.000 

l  .  7798E -  1 5 

8  8751E-Q) 

1.4 3 341  10 

8.875U  01 

105  3879 

60.000 

80.000 

8  83!  5€  -  15 

8. 3577E -01 

t  43341  tO 

8  35771  -01 

-186  6769 

65  000 

80.000 

8  36041-15 

8  65951-01 

1.367  IE  10 

8  65951  01 

-146.0578 

70.000 

80.000 

1.60181-15 

3.01001-01 

1.88671  10 

3  03801  01 

-160  4761 

75.000 

80.000 

1  7B4IE-I5 

3  86131-01 

1  01041  •  10 

3.86131-01 

170  6016 

80  000 

80  000 

1 . 31041-  16 

3  0748E-OI 

7.83901  -  1 1 

1  07481  01 

-170.1313 

B5 . 000 

80  000 

6  7 ! 381  -  1  6 

8  16641-01 

3  805 7E  -  |  1 

8  1 664E  0 1 

175. 8960 

90.000 

80  000 

50 96 5t -85 

1  0867E - 1 1 

P.887?C -8! 

1  086 7E  1  1 

-18.7633 

0 

90 . 000 

8  3936E  - 1 5 

3  00591-88 

6  0467E  1  1 

6  04671  II 

-116.8188 

5  000 

90  000 

4  09451-15 

8  97901-08 

4  71441-1 1 

8  9790C  0? 

-50  0586 

10  000 

90  000 

5  1 1 B8E  1 5 

6  66171-08 

5  379 IE  1  1 

6  60171  08 

49  9318 

15.000 

90 . 000 

4  8B65C -  1 5 

1 . 08501 -01 

6. I595C -  1  1 

1  .  08501  0  1 

-50  4073 

80.000 

90  000 

4 . 0768E  *  *  5 

1.51501-01 

7.079511 1 

1  5 1 50C  -  0  1 

-51  4956 

85.000 

90.000 

4.8488E-15 

1  9I0JE-O1 

8. I474E •  1  1 

1  91831  01 

-538905 

30 . 000 

90  000 

5  77381- 15 

8.8588E-0I 

9  34  791-  l  1 

8  8588101 

-55.9063 

35 . 000 

90.000 

6  6796E -  1 5 

8.4764E-0I 

1  06351-10 

8  4 7641  01 

-59.9891 

40.000 

90.000 

7  7557C-I5 

8  5639E-01 

1  19871-10 

8.56301-01 

-65.71 10 

45.000 

90.000 

3  668 1 E -  1 5 

8.51581-01 

1  .31  131-10 

8.51581 -01 

-74. 3155 

50 . 000 

90.000 

8  6680C-I5 

8  30i IE -01 

1  .40531-10 

8  301  11  01 

-07. 1405 

55  000 

90.000 

5  00961-15 

8.87991-01 

1  45931  - 10 

8  87991-01 

-105.8309 

60 . 000 

90.000 

1 .60181- 15 

8.  3600C-0I 

1  45051-10 

8  36001  0 1 

- 186.5990 

65.000 

90 . 000 

8.36041-15 

8  6608E-0I 

1  3904C  1 0 

8  66081  0 1 

-146.0137 

70.000 

90.000 

3.80841- 15 

3. 0377E-OI 

1  84711-10 

3  0  3  771  0  1 

- 160.4501 

75 . 000 

90 . 000 

1  .64531-15 

3 . 8603C  -01 

1  08691-10 

3  86031-01 

-1705975 

60.000 

90.000 

8.98071-16 

3.07871-01 

7 . 35561 -  1  1 

3.07871  01 

-170.  1341 

•5 . 000 

90 . 000 

6.66441-16 

8. 16511-01 

3.06591  II 

8  I651E0I 

1758408 
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I  ?  HONOPOI.es  9'fl  WAVELENGTH  -  1/3  WAVELENGTH  APART  --  EXAMPLE  ? 

01  ELECTRIC  CONSTANT  •  I.SOOOE«OI  ANO  CONDUCTIVITY  •  I.OOOOC-02  FOR  FAR  E  I ELO  CALCULATIONS . 


OBSERVATION  ANGLES 
theta  phi 
90  000  90  000 


ELECTRIC  E | ELO 

R- COMPONENT 
3 . 521  JE-«?7 


THETA -COMPONENT 
I  .  0«9 E  - 1 1 


PH|-COr^O«NT 

^.3^36£-^l 


MAGNITUDE 

i  .ame-i  i 


PHASE 
- 1? . 7637 


-50- 


Example  3  -  Top  Loaded  Monopole  -  As  a  third  example  we  will  model 
the  antenna  shown  in  Figure  17.  This  antenna,  used  for  LORAN-C,  has  a 
high  degree  or  rotational  symmetry.  It  also  has  an  element  on  the  axis 
of  rotational  symmetry  and  a  multiple  junction  of  elements.  We  will 
model  this  antenna  over  a  radial  wire  ground  screen,  and  compute  the 
electric  field  from  one  of  the  top-loaded  radials  to  ground  for  a 
normalized  input  pcwer  of  1  watt. 

The  input  data  deck  for  this  antenna  shown  in  Figure  18  is  similar 
to  those  of  the  previous  examples,  however,  the  following  points  should 
be  noted. 

Card  2:  We  select  a  ground  screen,  near  field  and  normalization  of 
input  power. 

Card  3:  The  input  frequency  of  this  antenna  is  100  kHz,  and  the 
ground  media  parameters  are  needed. 

Card  4  —  30  are  used  to  describe  the  antenna.  Note  that  the  NC0N1 
value  of  all  the  top-load  radials  is  given  a  value  of  -1000 
to  designate  that  it  is  a  multiple  junction  of  wires  and 
that  the  NC0N2  value  of  each  top  load  radial  is  0  since 
they  are  unconnected.  A  catenary  model  is  used  to  specify 
the  physical  droop  of  the  wires,  and  thus  a  wire  weight  of 
1.586  pounds/metre  and  a  wire  tension  of  1000  pounds  is 
specified.  The  last  element  specified  is  the  tower  which 
is  on  the  axis  of  symmetry  and  note  that  its  base  is 
grounded,  so  that  NC0N1  of  the  tower  element  is  97  and 
NC0N2  of  the  tower  is  -1000  since  it  connects  with  the 
top-load  radials. 

Specifies  the  structure  symmetry.  Note  that  24  sectors 
of  rotational  symmetry  actually  exist  on  this  structure, 
but  since  the  program  limits  the  user  to  12  sectors,  two 
top  load  radials  are  included  in  each  of  the  12  allowed 
sectors.  Four  segments  are  used  for  each  radial  load, 
and  four  segments  are  used  for  the  tower,  so  NP  =  8  and 
NX  =  4.  The  total  number  of  segments  used  equals  100, 
which  is  the  limit  of  this  version  of  WAMP. 

Specifies  that  the  base  segment,  Number  97,  of  the  mono¬ 
pole  is  driven,  and  card  33  specifies  that  180  radials  of 
#8  AWG  wire  are  used  for  the  ground  screen. 

is  the  last  card,  and  it  specifies  that  we  want  to  compute 
the  near  field  from  the  ground  up  to  the  vicinity  of  one 
of  the  top-load  radials.  41  points  will  be  evaluated 
along  the  path  between  the  two  points,  and  the  electric 
field  tangent  to  the  path  will  be  integrated  to  give  the 
potential  between  the  two  end  points. 

The  complete  data  deck  is  shown  in  Figure  18  and  the  computed  results 
are  shown  in  Figure  19. 


Card  31 : 

Card  32: 

Card  34: 


Figure  17.  Computer  Drawn  Model  of  U.  S.  Coast  riuard  Top  Loaded  Monopole 
(Note:  More  segments  are  shown  than  actually  used  in  example.) 
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uses  TOP  LOACEO 

1  0  0 
.00010 

rtONOPCLE  antenna  --  EXAMPLE  3 

1  1  C  1 

0.  1  3  IS.  .01 

4 

.0 

.0991* 

.0  193.9*  >1009  1*0. 21  .0 

1.566  1030.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  1  S3 . 9*  -1000  135. *3537  36.39661 

1.566  1009.0  0. 

75.90 

0 

4 

.0 

.0991* 

.0  193.9*  -1000  131. *3:63  70.10009 

1.536  1000.9  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -.990  99.1*901  99.1*933 

1.566  1030.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1030  70.073533  131. *3179 

1.596  1003.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1030  35.3S651  135. *3599 

1.596  1003.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1000  -.00031  1*0.31 

1.566  1030.0  0. 

75.90 

0 

V 

.0 

.0091* 

.0  193.9*  -1003  -36.39711  135. *3579 

1.536  1 000.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1003  -70.10336  131. *31*8 

1.566  1000.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1000  -99.1*9*5  99.1*879 

1.566  1030.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  1  S3 . 9*  -1030-131 .*319*  70.079S55 

1.586  10C3.Q  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1030-135. *3603  36.39631 

1.536  1030.0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1300-1*0.31  -.00063 

1.506  1000  0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1  COO- 1  35. *3571  -36.397*1 

1.536  1000.3  0. 

75.90 

0 

4 

.0 

.0391* 

.0  193.9*  -1000-131. *3132  -70. 10C53 

1.536  ICQO.O  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1000  -99.1*057  -99.1*967 

1.536  ICCO.O  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1003  -70.07393  -131. *331 

1.596  1030.0  0. 

75 . 90 

0 

4 

.0 

.0091* 

.0  193.9*  -1000  -36. 39591-135. *361 l 

1.566  1000. 0  0. 

75.90 

3 

4 

.0 

.0091* 

.0  193. 9*  -1030  .00093-1*0. 31 

1.505  1000. 0  0. 

75.90 

0 

4 

.0 

.0091* 

.0  193.9*  -1333  36.3977 1-135. *3563 

1.596  1C00.3  0. 

75.93 

0 

4 

.0 

.0091* 
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Figure  18.  Data  Deck  for  Example  3 
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15 

N.N5I6C-0N 

2  093PE-03 

?  IN003639E  -  03 

77 

993 

16 

1 .765 3E -ON 

8506NC-0N 

8  6938? 1  OPE -ON 

78 

083 

17 

7 , 6??7C  -0‘i 

3  5 1 7?£ - 03 

3  5988?600C -03 

77 

77? 

16 

63N6ee-0N 

2  9566C-03 

3  0?39 l 799E -03 

77 

885 

19 

N.N5I5C-0N 

?  093 1 E - 03 

?. l39895?NC-03 

77 

993 

*0 

l .795IC-0N 

8.5059E-0N 

0  693??33?€ON 

70 

08  3 

?i 

7.6?33C-0N 

3  5I7NE-03 

3 . 5990930NE  -03 

77 

77? 

22 

8IN67E-0N 

2  9569E-03 

3  0?N1?87NE-03 

77 

885 

?3 

N  N5I6E-0N 

2  093PE-03 

2  IN003639C-03 

77 

993 

?N 

1  795K-0N 

8  506NE-ON 

8  6938? 10?E -ON 

70 

083 

a 

7 . 6??7E -ON 

3  5 1 7?£ -03 

3  5988P600E -  03 

77 

77? 

?6 

6  3N6?C-0N 

2  9566E-03 

3  0?39l 799E -03 

77 

885 

?7 

N.N5I5C-0N 

2  09JIE-03 

?  I39895PNI  03 

77 

993 

29 

1  795 IE -ON 

6. 5059E  -  On 

6  693??33?E  -  ON 

78. 

003 

a 

7. 6?33£  -ON 

3  517NE-03 

3 . 5990930NE -  03 

77 

77? 

30 

6  JN67E-0N 

2  9568E-03 

3.0?N|?87NE -03 

77 

885 

31 

N.N5I6E-0N 

2  093PE-03 

2  IN003639E  -f  3 

77 

993 

1? 

1  765JE-0N 

8  506NE-0N 

8  6930? IO?E -ON 

7b 

083 

33 

7  6??7E -ON 

3.51 7?E -03 

3  5908?6OOE  03 

77 

77? 

3N 

6.  JM6?£-0N 

2  9566C-03 

3  0?39 1 799E  03 

77 

885 

35 

N.N5I5E-0N 

2  063IE-0J 

2  1  39095PV  03 

71 

993 

36 

1  765IE-0N 

8.5059E-0N 

B  693?? 3 3?E  ON 

78 

083 

37 

7  6?J3C-0n 

35I7NE-03 

3  59909 30NE  03 

77 

77? 

36 

6.3N67E-0N 

2  9566E-03 

3  0?N | ?87nE -  03 

77 

885 

39 

N  N5I6E-0N 

2  093?£-03 

2  IN003639C-03 

77 

993 

NO 

1  .7953C-0N 

8  506NC -  ON 

8  6938? 1 0?E  ON 

78 

083 

N 1 

7 . 6??7C  -  ON 

3.51 7?C -03 

3  5908?6OOE  03 

7"» 

77? 

N? 

6  3N6i?C>0N 

2. 9566C-03 

3  0?  39 1 799E -  0  3 

77 

B85 

NJ 

N.N5I5E-0N 

2 . 093 1 E -03 

2  1 39895PNE -03 

77 

993 

NN 

1 .765IE-0N 

8  5059C-0N 

8  693??3 3?E -  On 

78 

083 

N5 

7  6P33E  -  ON 

3.5I7NC-03 

3  5990930NE  03 

77 

77? 

SCG 

CURRENT  - 

NO. 

REAL 

IMAGINARY  MAGNITUDE 

PHASE 

51 

N  N5I5C-0H 

?. 093 1 E -03 

?.  I36895PNE-0J 

77.981 

5? 

1  795IE-0N 

6  5059E-0N 

8 . 693??3  J?f  -  ON 

78.063 

53 

7 . 6P33C  -ON 

3.5I7NE-03 

3 . 5B90930NE -03 

77.77? 

5N 

6  3N67C-0N 

?• 9566C-03 

3  0?N  1  ?07**E  -  03 

77  665 

55 

N.N5I8E-0N 

?  093?£  -03 

2  IN0036J9C-0J 

77.693 

56 

1  7083E  -  ON 

8  506NC-0N 

B  6838?  1  OPE  ON 

78.063 

57 

7 . 6??7E -ON 

3.51 7?C -03 

3  5980?6OO£-O3 

77 . 77? 

56 

6  3N6?E'0N 

2  9566E-03 

3  0?39l 79BE -03 

77.665 

59 

N.N5I5C-0N 

?. 093IC-03 

2  l 3B895PNE  03 

77  963 

60 

1  . 795  IE -ON 

8  5059E  ON 

■  693??33?E  ON 

76.063 

61 

7 , 6?33C  -  ON 

3  5I7NE-03 

35990 9 3 ONE -03 

77  77? 

6? 

6  3N67E-0N 

2  9568E-0I 

3  0?Nt?87NC  03 

77.665 

63 

N  N5  i  BE  -  ON 

?  093PE  03 

?  IN003639E  03 

77.993 

6N 

1  7953E-0N 

8  506NC  ON 

8  6938? 1 0?E  ON 

76.063 

65 

7 . 6??7E - ON 

3. 51 7?E -03 

3 . 5988?600E  -  03 

77 . 77? 

66 

6  3N6PC  ON 

?  9566E-03 

3  0?39l 799C - 03 

77.665 

67 

N  N5I5C-0N 

?  09JIE-03 

?  1 39895?NE -03 

77.693 

68 

1  795  IE -ON 

8 . 5059C  -  ON 

6  693??33?E  ON 

76.063 

69 

7  6?3JE  -  ON 

3  517NC-03 

3  5990930NE  03 

77 . 77? 

70 

6  3N67E  ON 

?  9568C  03 

3  0?NI?87Ne-03 

77.665 

71 

N  N5J8E  ON 

?  093?€ -03 

?  IN003639C -03 

77.693 

7? 

1  7953E-0N 

8  506NE-ON 

8  6938?I0?E  ON 

76.063 

73 

7  6??7t  -  ON 

3.51 7PE -  03 

3  5988?600E  03 

77.77? 

7N 

6  3N6PE  -0N 

?  9566C-03 

3 . 0?39l  799E  -  03 

77  665 

75 

N  N5T5E  ON 

t’  093  1 L  0  3 

?  1 39895PNE  03 

77  993 

76 

1  795 IE  ON 

6 . 5059E  ON 

8  693??33?E  ON 

76.063 

77 

7  6?  3  SC  ON 

3.51 7NE -  03 

3  5990930NE-03 

77.77? 

78 

6.3N67C  ON 

?  9568E-03 

3  0?N  l?87N€  -01 

77.665 

79 

N  N5IBE-0N 

?  093PE-03 

?  IN003639E  03 

77.993 

80 

1  7953E-0N 

B.506NE -ON 

8  69J8?I0?E-0N 

78.063 

81 

7  6??7E  -0N 

3  5I7?€  03 

1.5988?600€  03 

77.77? 

8? 

6  3N6PE-0N 

?  9566E  03 

I  0?39I799E  03 

77.665 

83 

*  N515E0N 

?  093IE-03 

2  1 39895PNE-03 

77.893 

0N 

1  795  IE -ON 

B  5059E  ON 

8  693??SS?E  -0N 

78.063 

85 

7  6?33£  -ON 

3  5I7NE-03 

3  5990930NE  03 

77 . 77? 

86 

6  3N67E-0N 

?  9568  -03 

3 . 0?N l?87NE -03 

77.865 

87 

N  N5I8E-0N 

?  093?E-03 

2  IN0036S9E  03 

77.69J 

88 

1  795 JC  -ON 

8 . 506NE -  ON 

B  6938?  1  0?C  -  ON 

76.063 

89 

7  6PP7E-0N 

3  51 7?E -OJ 

3  5986P600E  -03 

77 . 77? 

90 

6  3H6PE -  ON 

?  9566C  03 

S.0?S9I799C  03 

77.665 

91 

N  N5I5C-0N 

?  093  IE -03 

?  I39695PNC  03 

77.963 

9? 

1 . 795  IE -ON 

8  5059E  0* 

8  693??3S?E  -  ON 

78.063 

93 

7  6?33€  -  ON 

3  5I7NC-03 

3  5990930NE -  03 

77.77? 

9N 

6  3N67E  -  ON 

?  9568E  03 

3 . 0?N  l?87Nf  01 

77.665 

95 

N  N5I8E-0N 

?  093?C  -03 

?  IN003639C  03 

77  891 

1SCG  ClWRCNT  SCG  CURRENT 

NO.  REAL  IMAGINARY  MAGNl  TuOf  PHASE  NO.  RE Al  IMAGINARY  MAGNITUDE 

HS  6  3n67£  -  O'*  ?  9560E  -03  3  0?N|?B7NE  03  77  80S  96  I  .  795  31  ON  8  506NE  -ON  B  69  30?  I  OPE  ON 

N7  N.N5I0E-ON  ?.093?C-03  ?  IN003619C-03  >7  993  97  I.0I5IE-O?  8  N9?5E  -OP  B  680N73 1 8C  0? 

n*  I  7953C-0N  •  506NE-0N  8  6938? I  OPE  -  On  70  OBJ  96  I.8J6NC-0?  8  N70NC  OP  8  67N965PPE  0? 

N9  7  G??7C-0N  J5I7BC-03  3  5988P600E - 03  77  77?  99  I8J93C-0?  8N83PI0?  8  E80P5N69C -0? 

50  6  1N62C-0N  ?  9566C-03  3  0?39l799€-03  ’7  865  TOO  I.RNPPE  0?  8  N95NC  0?  8  69P80I75I  0? 

51  N  N5I5E-0N  ?  09SIC-03  5  I 39895PNE -03  77  993 

AON I T •  1  035IE-O?  8  N9P5E  0?  ?P€D«  ?  N3lOE*00  I  !?50C«0l 

6  6665E-0?  7*»  806  l  I5I0E*0;  -77  606 


PHASE 
79  063 
77.606 
77.776 
77  767 
77.785 


-58- 


I  I  AM  A  | 

I  9  22666 -OH  H.6O6I6-0H 
i  399HC-03  -1.  13126-02 
I  ••  7MC  0]  ••  .NSff  » 
H  -I.H9H76-02  *7.  33 IK *02 
9  9.2I6I6-0H  H.960IE-0H 

•  -I  J99HC-03  *3. 1 3126-02 

7  79556-03  -H .  3*9 It -0? 

•  -I.H6H66-02  -7 . 33216-02 

•  5. 22706 -OH  H. 9*766 -OH 

10  -6.39976-03  -J.  13136-02 

11  -9  7*606-03  -S. J65HC-02 

\i  -IH9HI6-0 2  -7  3MM  W 
I)  MIMC-OH  H.56HOC-OH 
>*»  •  JWK-03  -3  1 31  1 6 -02 

19  -9 . 79930  03  -H. 36506-02 
II  -l.H*H7C-02  -7. 33206  -  02 
17  5.2?hoc-oh  H.stjne-OH 
ii  -•  ••oojt-o.*  -1.U166-02 

II  *1. 7967E-0S  -*«  .  J657C-02 

20  -I  H9H96-02  -7.33iM.-0B 

21  92I9IC-0S  H . 960 I E  -  OH 

22  -ft  J99HE-0J  -3.  lJlft-02 

23  -1. 7199003  -H.3651C-Q? 

2H  -1.H9H66-0. 2  -7  3321E-02 
29  5.22M6-0H  H  $06 It -OH 

2%  •«  SNHE-03  -M3IX-0? 

27  -9. 7996C-0J  -H. 36526 -02 

21  - 1  HftHTC  -02  -7.IJI96-02 

21  5  216IC-0H  H.560IC-0H 

JO  -I  J99HC-03  '  J .  I  3 1  ft -02 
Jl  -1 . 7059C 'OJ  -H. 36516-02 
32  -I  -H9HK-02  -7 . 332  IE -02 
JJ  5  22706 -OH  ^.)|7K-0S 
JH  -*.39076-03  -3.  I  J 1 36-02 
39  -6.79606-03  -H  36SHC-02 

SI  -I.H9H66-02  -7  332ft -02 
37  9  *1996 -OH  H.56H0C-0H 

Jl  *1. 39626-03  -3.13111-02 
31  -9.  "9536-03  -H  J650C-02 

fO  -t . ••It 7|-02  -7 .  J320C-02 
*•1  9  22HOC-OH  h  .  56366  -OH 

**2  -I.HOOJC-OJ  -3. 13166-02 
•♦J  'I.7H7C-0J  -H  36576-02 
'*'*  -I  H9H96-02  -7 . 33266-02 
*♦9  9 . 2 1 1 1 C  - 0**  H  560IC-0H 

-ft  J99HC-03  -  J.  I  3 1  ft -02 
•*7  -I.7I55C-03  -H  36516-02 

**•  ‘I  .*♦•‘♦•1-02  -7. 332 It -02 
**•  5.2266E-0H  H  606 IE -Oh 

90  -I. J99HE-03  -J. I Jlft-02 

51  -I.7I56C-03  -H  365ft -02 

52  -I.H9H7E-02  -7 . 331 0C-02 

53  5216I6-0H  H . 560IE-0H 

5«*  -9.J96H6-03  -J.lJlft-02 

55  -9.76SS6-0J  -H .365 It -02 
96  -I  H9H66-02  -7. J32l£*02 
57  5. 22706 -OH  H. 5*7*6 -OH 

51  -I.  39976-01  -J.  131  3T-02 
51  -1. 7M0t-03  -H  36SHC-02 
•0  -I  H9H66-02  -7 . 332ft -02 
•  I  9. 2  lift -OH  H.56H0C-0H 
•2  -I.  3M2C-03  -3.  131  tt-02 
•3  -9  79536-0)  -H . 36506-02 


m  ii 

- 1 . 2676C-03  -5 . 557JC -  03 
-l  §H 566-03  -7. 36H7E-0J 
-2H25J6-03  -I  I 227f-02 
-3.56096-03  -I .66 ISC -02 
- 1  .26796-03  -9.5975C-03 
- 1 . 6H606-03  - 7 . 395ft - 0 3 
-2.H2SHE-0J  -I.I227C-02 
-3.561  IE-03  -I .60I6C-02 
- 1 . 2670C-03  -5 . 557HE -  03 
-I.6H5K-03  -7.39H9C-03 
-2.H253C-03  -I . I227E-02 
- 3 ■ 56 1 OC - 0 3  -I . 66l6t -02 
-I  .29796-03  -5.5575C-03 
-I  6H60E-03  -7. 3951 t -03 
-2  H25HE-03  - | . 12276-0* 
-3  561 lt-03  -t  66166-0* 
-I  2I79C-03  -5.5576C-03 
-I  6H60C-0J  - 7 . J952C * 0 3 
-2.H25HE-0J  -I . 1227E-02 
-3  56I2E-03  -I  66166  02 
-I . 2I79C -03  -5.55756-03 
-I  6H60C-03  -7. 39S2E-0J 
-2.H25HE-03  -I . I227E-02 
•1.561  IE-03  -I . 66 1 6t - 02 
-I  .2I76E-03  -5.557SE-03 
-I  6H59603  -7.39H7C  03 
-2.H25J6-03  -  I  .  1227E-02 
-3. 56096-03  -I. 66156-02 
-1. 26796-03  -5.55756-03 
-I  6460E-03  -7. J952E  03 
-2  H25HE-03  -I  12276-0* 
-J  961  It -03  -I  . 66 1 6C - 02 
- I . 2676C-03  -5.557HC-03 
-I  6H59C -03  -7  39H9E  03 
-2.H2536-0J  -I  I227C-02 
-J  96I0E-0J  -I . 66I6C -02 
- 1  217ft -03  -5.5575C-03 
-I  8H60E-03  -7  395 IE -03 
-2  H25HE-03  -I . I227E-02 
-J  561 IC-OJ  -I  68166-0* 
-I  29796-03  -9  5576C-03 
-I  6H60C-03  - 7 . 395ft - 0 3 
-2.H2SHC-03  -I ■ I227E-02 
-J  56I2E-03  -  I . 66 1 6C -  02 
-l. 2*796 -OJ  -5 .55756-03 
-l  6H60E-03  -7. 39526-03 
-2.H25HE-03  -I. 12276-02 
-J  561  IE-03  -I .61166-02 
-I  2*7*6 -OJ  -5.55736-03 
-I  6H596-03  -7.39H7E-03 
-2  H2536-03  -I  12276-02 
-356096 -03  -I.6II56-02 
-I. 21766 -03  -5.55756-03 
-I.IH60E-03  -7. 39526-Q3 
-2.H2SHE-0J  -I . I227E-02 
-3.561  IE-03  -1.66166-02 
-1.26766-01  -5.557HE-03 
-I.6H596-03  -7.39H96-03 
-2  **2536-03  -I  .  12276-02 
-3 . 561 0E-01  -I. 66166-02 
-I  267*6 -OJ  -5.55756-03 
-I  IHIOC-OJ  -7.3*516-01 
-2.H2SHE-0J  -I . I227E-02 


CM 

2. 36366 -OH 
7  03H06-OJ 

1 .  2H07C  -03 
I .91266-02 

2. H052E-OH 
7.  OSH  06-03 
9. 2H 066-03 
I  51276-02 
2. 3957E-0H 
7.0IH36-03 
9.2HI IE -03 

1  91276-02 

2  .  HOH  J£  -  OH 
7  03396-03 
9  2H0HE-03 

1  51276-02 

2  39676-0** 
7  01H9E-03 
9. 2H 166-03 
I .51266-02 
2  HO526-0H 
7.03H0C-03 
9. 2H  066-03 
I  51276-02 
2 . 3939E-0H 
7.0JH0E-03 
9  2H07E-03 

1  5I26C-02 

2  -*05ft- OH 
7.03HOE-03 
9. 2H  066  -  03 
I  51276-02 
2. 395 7t -OH 
7.0JH3E-0J 
9.2HIIE-03 
I  5I27E-02 
2.H0H3E-0H 
7  0339E-03 
9  2H0HE-0J 

1  5I27E-02 

2  3967E-0H 
7.03H9E-0J 
9 .  «?H  1 86  -  0  J 
151 296  -  02 
2  H 05ft -OH 
7.Q3H0E-0J 
9  2H06C-OI 
I .5I27E-02 
2  59396 -OH 
7.03H06-03 
92H07E-03 
I  51266-02 
2.H0526-0H 
7. OSH 06-03 
9  2H06C-03 

1  51276-02 

2  39576 -OH 
7 . OSH  36-0 J 
9.2HI 16-03 
I  91276-02 
2. hOH JC-OH 
7.03396-03 
92H0HC-0I 


Cl 

3.05666-03 
3  .H2666-02 
H.57H56-02 
7.  HI  696 -02 
3.06IH6-03 
3 . H 2696 -02 
H.57HH6-02 
7 . H 1 726-02 
3.057H6-0J 
3.H270C-02 
H  57H7C-02 
7  HI 7ft-02 
3 . 06 1  OC  -  0  3 
3  H266E02 
H  57H36-02 
7  HI70E-02 
3  0566E-03 
3.H2736-02 
H .57506-02 
7  HI 766 -02 
3 . 06 1 HE -03 
3.H2696-02 
H  57HHC-02 
7.  HI  7ft -02 
3.05666-03 
3.H2666-02 
H  57H56-02 
7.HI6«€-02 
3  061 HC -03 
3.H2696-02 
H.57HH6-02 
7  .HI  7ft -02 
J.057H6-03 
3.H270E-02 
H  57H7E-02 
7  .HI 726-02 
3  061 OC -03 
3 .  H26IPC  -  02 
H  57H  JC-02 
7  .  H  I  7  )E  -  02 
305666-03 
3.H27J6-02 
H  57506-02 
7 .HI  766-02 
3 . 06 1 H6  -  0  3 
3  H 2696 -02 
H  57HHC-02 
7.HI72E-02 
3  05666-03 
3.H2666-02 
H  57H56-02 
7 .H 1696-02 
J.06IH6-03 
]H 2696 -02 
H.57HHC-02 
7 .H | 726-02 
3  057H6-0J 
J  H 2706 -02 
H.57H7E-02 
7  . HI  726-02 
3.06I0C-0I 
J  H2666-02 
H.57H  36-02 


-59 


6*  -I  *9*71-02  -7.33201-02 
•9  5  iMt'O1*  *  N3K  0<* 

M  -6  *0031-03  -3.  I  JI6C-02 
§7  -•  70971-03  -*  3957£-02 

M  -I. *0*91-02  -7.33271-02 
•9  5.21611-0*  4  56011-0* 

70  -6.399*1-03  '1.  13121-02 

71  -8.7995C-0J  -*  .569 1C -02 

7*  -I. *9*81-02  -7.33211-02 

73  5  22991-0*  *00611-0* 

7*  -0399*1-03  -3  13121-02 

79  -•  79591-03  -*.30521-02 

79  -I. *9*71-02  -7.33191-02 

77  521011-0*  *. 98011-0* 

79  -0399*1-03  *3.  13121-02 

79  -8. 79991-03  -*.36911-02 

•0  *  I  *9*61-02  -7.3J2IE-02 

91  9 •  22701 -0*  *  50791-0* 

12  -6  39971-0.,  -3. 13131-02 

93  -9. 7960C-03  -4 . 365*E -02 

6*  -I  *0*01-02  -7  332210? 
99  5. 21091-0*  *56*0C-0* 

96  -6.39921-03  -1. 1 3 1 11-02 

97  -0. 70531-03  -*.  36901-02 

99  -I. *9*71-02  -?. 33201-02 

99  9 . 22* I E  -  0*  *.56*01-0* 

90  -6  ‘♦0031-03  -3.13161-02 

91  -9.7967E-03  -*.36571-02 

92  -1  *9*91-02  -7.3327E-02 

93  9.21611-0*  * .  560 1 E  -  OH 

9*  -6  399*C03  -3  13121-02 

99  -9. 79951-03  -*.36511-02 

96  -I. ‘•**01-02  -7  33211-02 

97  1.95921-02  7.11301-02 

99  2  003K-02  I  03261-01 

99  1.03921-02  9  210*1-02 

100  2.97271-03  1. 97111-02 


-3.561  IE -03  -1  69101-02 
-1 . 20791 -C3  -5.55761-03 
-I  6*601-03  -7.39521-03 
-2  *25*1-03  -I  12271-02 
-3.56121-03  -I  69161-02 
-I  29791-03  -9.55791-03 
-I  .6*601-03  -7.39521-03 
-2. *25*1 -03  -l  12271-02 
-3.561 11-03  - i  60161-0? 
-1 .29791-03  -555731-03 
-1.6*591-03  -7 . 39*71-03 
-2  *2531-03  - 1  12271-02 
-3.56091-03  -1  68151-02 
-I  .29791-03  -5  55 ■’51 -03 
-1  6*601-03  -7. 39521-03 
-2  *25*1-03  -  1 . I227E-0? 
-3  561  IE-03  -  I  60161-02 
-1  2979C-03  -5.557*1-03 
-1  6*591 -0 J  -7.39*91-03 
-2. *2531-03  - 1  12271-02 
-3.56101-03  -1  68I6E-02 
-I .28791-03  -5.55751-03 
-1  6*60E-03  -7  395  I E - 03 
-2  *25*1-03  -  1 . 12271  -02 
-3.56111-03  -I .69161-02 
-I .29791-03  -5.55761-03 
-I  6*60E -03  -7.39521-03 
-2 . *25*E -03  -  I . 12271-02 
-  3 . 56121  03  -  1 . 68 1 61 -02 
-l  .29791-03  -5  55751-03 
-1 .6*601-03  -7  3952E-03 
-2 . *25*E -03  -I . I227E-02 
-3  561 11-03  - 1 .68161-02 
6  07**£ -05  -6.9796E-0* 
2  05951-0*  *61181-0* 
2 . 903*E -0*  B  *1281-0* 
-*.91311-0*  -2  091*1-03 


1.91271-02  7*1701-02 

2  19061-0*  3  09991-03 

7  03*91-03  I  *2731-02 
9  2*  191-03  *  97901-0? 
1.91291-0?  7*1791-0? 

2  *0921-0*  3  061*1-03 

7.03*01-03  3  *2991-02 

9  2*061 -03  *  97**1-02 

1  51271-02  7*1721-02 

2  39391-0*  3.09661-03 

7  03*01-03  3  *2691-02 

9  2*071-03  *57*91-02 
1.51261-0?  7  *1691 -0? 

2  *0521-0*  3  061*1-03 

7  03*01-03  3  *2691-02 

9  2*061-03  *  57**1-02 

1  51271-0?  7  *1721-02 

2.39571-0*  3  057*E-0J 

7  03*31-03  3  *2701-0? 

9  2*111-03  *  57*71-0? 

1.91271-02  7. *1721 -02 

2  *0*31-0*  3  06101-03 

7.03391-03  3  *2691-0? 

9  2*0*1  03  *  57*31-02 
I  51271-02  7 . * | 70E-0? 

2.39961-0*  3.05991-03 

7  03*91-03  3  *2731-02 

9  2*191-03  *  57501-02 

1  51281-02  7  *17810? 

2  *0521-0*  3  061*1*03 

7.03*01-03  3  *2691  0? 

9  2*061-03  *  57**1-02 

1.91271-02  7  *1721-02 

1.20071-03  I  37951-02 
I  66961-03  -I  .8*731-0? 
1.3*851 -06  -7  27201-03 
1.5**91-02  6  52*31-02 


I  •  * . . . 

VOLTAGE  TO  DRIVE  ANTENNA  AT  1-UATT  -  10. *395* 


ALL  MUDS  ARC  NORMALIZED  TO  THIS  INPUT  POWER 


i  c-riCLO  rWH  i **o  iooo 


POSITION  ON  PATH  IHCTCftS) 


oc*oo 

i  .mttC‘00 
3  7f250£*00 
9ift75E*00 
7.56900E*00 
9.H0l25E*00 
l  . l3775E*0l 
I  .  W7J7£*01 
I  SI700C»0I 
I  70M2C«0| 

1  •9tt9C«0l 
2.0«507C*OI 
227550E  01 

а. HMia>oi 

2  69htse*oi 

2 .  •HH|7t *0 1 

3  03M00C*Q! 

3  22S62C*0l 

3. hi329c«oi 
3 . 60297E  *0 ) 
3.7«S0C»0t 
3.90212£*0l 
*•.  17|75C*0l 
H  .  361  37E*01 
*•  55IOOC*OI 
*♦  .  7*»0§2£*0I 

4  . 93025£*0l 
9.  H9t7C»0l 
9 . 30950C+0 1 
9.‘*t9i2c*oi 
5.6M75C*0I 
9. 97*171 *01 

б .  0M00E  *0  I 
8-2576*E*0l 
6.4H7nC«0l 
9  63M7E*0l 
•  §2150E*0 I 
7 . OI612E*0| 
7.20575E*01 
7.39937t*0l 
7.59500C*0I 
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o  Mcrcfts  to  i no . 3000 


0  75.9900  HE  TENS 


E • TANOCNT  (V/Hl  total  E'FIELO  I  V/N) 


9. I709IC-0I 
92080HE-0I 
9 .  *N*30£-0 1 
5.27996C-0I 
9. 3I99HC-0I 
9. 39IH6E-0I 
9. 39910C-01 
9 . H2576C -0 1 
9.H6H7HC-0I 
5  5092BE -01 
5  5**7B5£  -  0 1 
5.59209E-01 
5-6369HE-0I 
9 . 619 1 7E -0 1 

5  7*«039C *0 1 
5. 79568C-01 
9  *SH*9C-Q\ 
5.9I7I9C-0I 
9.99HI IC-OI 
6 . 09996C - 0  I 

6  I330K-0I 
6 .?I63^E-0I 

6  3067VC-0I 
6 .  **0939001 
69I377C-0I 
6 ■ 63399C-0 I 
6.76632C-0I 
6 . 9206BC -0  I 

7  095921-01 
7  30I05E-01 
7.5H607C-0I 
7.9H6HHC-0I 
«  22537E-0I 
9  7?0?6£>01 
9  39H3IE-0  l 
I 03620E*00 
I . I9939C*00 
I  .‘*H027E*00 
I  999 1 *00 
3 .503301*00 
3 . mh369C*0 I 


9 . 2009HE -0 1 
5 . 2306  IE -01 
9261 I9E-0I 
9  29327E -01 
9327H0C-0I 
5.36W00E-0I 
5  n  0  3NNC  -  0 1 
9 . SH606E -0  I 

5 -  N9P INC -0 1 
9.9H200E-01 
9- 9959 IE -01 
9 . 69h 1 BE  *  0 1 

5  71 7 | OE -01 
5.705OOE  01 
5.e9e?<«E-oi 

5 , 9372 1 E -0  I 

6.0223WE-0I 
6. I IMI3E-01 

6  2 1  3 1  BE -0 1 
6 . 320  t  NE - 0 1 
6  H3993E-0I 
6  56  I  2*«E  -  0  l 
6.69‘T53C  -01 

6  .  9^62 1  E  -  0 1 
7. 009  I 5C -01 
7.  IB676E-0I 

7  36820E-0I 
7.61 171E-01 

7  66509E -0  I 
9. 19627E-0I 
6  '♦966  3E-0I 

8  90360E-01 
9.H030IE-01 
I  .  0036**E *00 
I . O074OE  *00 
I . 20^  30E  *00 
I  .  3800**E  *00 
I  67M56E ♦OO 
2 . 26672E  «00 
H.02825£*00 

6-  3I509E*OI 


THE  INTEGRAL  Of  THE  E-FlO  TANOENT  TO  THE  PATH  IS 


9  lO2l*»E*0l  VOLTS.  *1  POINTS  USED  TO  EVALUATE  INTEGPAL 
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VI.  MODELING  GUIDELINES  AND  SPECIAL  CALCULATIONS 

Experience  with  the  WAMP  antenna  modeling  program  has  proven  the 
old  adage  that  "Garbage  in  equals  garbage  out"  is  applicable.  If  care 
in  setting  up  the  numerical  model  is  not  taken,  completely  erroneously 
results  may  be  realized.  In  this  section,  I  will  try  to  cover  a  few 
important  modeling  rules  which  can  help  to  achieve  good  numerical 
results.  It  is  always  important  to  carefully  question  numerical  results 
for  reasonability,  and  if  possible,  compare  with  experimental  data. 

Segmentation  -  Often  the  key  to  a  good  numerical  model  lies  in  the 
segmentation  of  the  physical  structure.  Miller,  et  al.  (1971)  estab¬ 
lished  some  fundamental  segmentation  guidelines  for  a  variety  of 
structures.  Typically,  at  least  six  segments  per  wavelength  must  be 
used  for  reasonable  accuracy.  At  the  other  extreme,  one  must  not  over 
segment  a  structure  such  that  "pancake"  segments  are  formed  ---  this 
violates  the  thin-wire  approximations. 

Multiple  junctions  and  segment  length  discontinuities,  particularly 
in  regions  near  sources,  can  lead  to  troubles.  A  good  rule  of  thumb  is 
to  make  all  segments  at  a  multiple  wire  junction  of  equal  length. 

(Often  times  this  is  difficult  to  achieve  when  a  limited  number  of 
segments  are  available  due  to  computer  core-size  limitations  and  exe¬ 
cution  times.) 

The  data  generator  in  the  WAMP  code  has  a  provision  for  modeling 
variab1e  length  segments.  The  factor  TAU,  read  in  by  the 
DATAGN  allows  for  an  exponential  increase  or  decrease  in  segment  length 
on  an  element.  For  an  element  of  N  segments,  the  seqment  lenaths  vary 
by  the  relation  (30):  "  “  J 


Li  ■  L0(t  .  r)'*-1’  (30) 


If  we  know  the  initial  length  we  need,  L0,  the  total  length  of  the 
element,  L,  and  the  number  of  segments  available  to  model  the  element, 
N,  Table  I  of  Appendix  B  can  be  used  to  find  the  proper  value  of  TAU. 

Miller  and  Deadrick  (1973)  have  studied  in  greater  detail  the 
consequences  of  segment  length  discontinuities  and  the  possible 
remedies  available  to  achieve  good  numerical  impedance  data.  These 
techniques,  i.e.  accurate  near  field  integrations,  however,  are 

expensive  in  terms  of  computer  times,  and  should  be  avoided  whenever 
possible. 

Negr  Field  Anomalies  ■■  the  near  electric  field  subroutine  in  the 
AMP  code  has  been  thoroughly  checked  and  found  to  give  good,  consistent 
numerical  results.  If  one  evaluates  the  near  field  at  the  surface  of 
the  wire  segements,  however-,  large  field  perturbations  may  be  found 
near  segment  ends.  These  field  perturbations  are  due  to  segment 
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current  discontinuities  at  segment  junctions;  a  result  of  the  current 
interpolation  method  used  WAMP.  Care  should  be  exercised  in  inter¬ 
preting  near  field  results  in  these  regions,  particularly  if  you  are 

trying  to  evaluate  the  voltage  across  a  gap  region  used  to  model  an 
insulator. 


Horizontal  Elements  Near  the  Interface  -  The  reflection  coefficient 
approach  used  to  model  structures  in  the  vicinity  of  an  imperfectly 
conducting  halfspace  has  been  found  (Miller,  et  al.  (1972)) to  give 
stable  numerical  results  for  horizontal  structures  whose  height  above 
the  interface  is  greater  than  0.1  wavelength.  Below  this  height,  the 
results  may  become  invalid  to  the  point  of  producing  negative  input 
impedances.  Long  horizontal  elements  of  several  wavelengths  near  the 
interface  can  exhibit  growing  currents.  One  approximation  which  has 
proven  to  cure"  some  of  the  above  limitations  has  been  to  fix  the 
angle  of  incidence  of  the  reflected  wave  to  tt/2.  This  may  be  accomplished 
by  setting  the  variable  CTH  =  1.0  in  the  subroutine  CMSETUP. 


ftadial  Wire  Ground  Screen  Model  -  The  model  used  to  simulate  a 
radial  wire  ground  screen  is  relatively  simple  in  form  in  this  proqram. 
(A  radially  varying  screen  impedance  is  modeled  in  parallel  with  the 
normal  ground  plane  wave  impedance.)  The  results  with  this  model  are 
quite  good,  except  for  vertical  structures  located  at  the  center  of  the 
radial  system.  In  this  case  the  screen  appears  to  the  program  as  a 
perfect  ground,  and  other  techniques,  i.e.,  application  of  the  compen¬ 
sation  theorem,  (Maley,  et  al ,  1963)  must  be  employed. 


t  Special  Calculations  -  The  WAMP  code  may  be  used  to  compute  many 
antenna  parameters  which  often  times  are  difficult  to  experimentally 
measure.  Listed  below  are  some  o*  the  procedures  required  to  compute 
some  of  these  special  quantities. 


Bandwidth-Efficiency  -  The  bandwidth  efficiency  product  is  of 
interest  to  the  designers  of  pulsed  Loran  systems.  Equation  (31)  defines 
this  parameter  ^  ' 


/^BW  = 


2Rr 

dx  |  x  r 

df  f 


(31) 


where  Rr  is  the  antenna  radiation  resistance  and  X  and  ~  are  the 
reactance  and  rate  of  change  of  reactance  at  a  frequencyff.  A 
calculation  of  this  quantity  is  easily  performed  by  determining  the 
input  resistance  and  reactance  for  the  antenna  over  a  perfect  qround 

H?S<J°SS?Vn  9rou?d)’  and  then  computing  the  input  reactance  for  two 
different  frequencies  to  compute  /.X/Af. 
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Insulator  Modeling  -  Often  times  it  is  necessary  to  access  the 
potential  across  support  insulators  to  estimate  breakdown  problems. 
Several  ways  have  been  found  to  model  insulators.  One  can  impedance 
load  a  segment  with  a  very  high  value  of  resistance,  solve  for  the 
segment  current  and  compute  an  IR  drop  across  the  segment.  Another 
technique  is  to  model  the  insulator  as  a  physical  gap  and  use  the  near 
field  routine  to  integrate  the  fields  across  the  gap.  This  technique 
has  been  found  to  give  somewhat  high  results,  while  if  you  take  the 
E-field  at  the  center  of  the  gap  and  multiply  it  by  the  gap  length, 
you  can  get  a  lower  bound  estimate.  These  techniques  allow  an  esti¬ 
mation  of  the  insulator  voltage  drops.  One  can  either  reference  the 
drops  to  a  1  volt  input,  or  normalize  the  antenna  power  to  1  watt. 

See  Miller  and  Deadrick  (1973)  for  more  details  on  insulator  modeling. 

Corona  Discharge  Assessment  -  By  using  the  near-field  subroutine 
to  follow  a  path  along  the  surface  of  the  antenna  wire,  one  may  examine 
the  potential  for  corona  discharge.  The  coordinates  of  the  field  eval¬ 
uation  path  should  be  displaced  a  wire  radius  away,  and  sufficient 
points  should  be  evaluated  to  resolve  the  segment  end  near  field  discon¬ 
tinuities  mentioned  above.  Again,  the  fields  may  be  referenced  to  a 
1  volt  input  source  or  normalized  to  a  1  watt  input. 

Catenary  Model  -  A  special  feature  of  the  DA TAG N  subroutine  in  this 
program  is  the  inclusion  of  a  catenary  model  to  account  for  the  drop  in 
long  length  wires  used  in  some  of  the  large  LORAN  antennas.  The  catenary 
curve  is  modeled  by  a  series  of  straight  line  segments  which  approximate 
the  catenary  curve  of  the  form  shown  in  Figure  20. 

Number  of  Segments  Limitation 

This  version  of  WAMP  is  designed  to  operate  specifically  on  the  CDC 
3300  hardware  configuration  for  the  U.  S.  Coast  Guard  headquarters  in 
Washington,  D.  C. ,  and  as  such,  limits  have  been  placed  on  the  number  of 
segments  which  may  be  used  to  model  an  antenna  structure.  A  total  of 
100  segments  may  be  used,  and  in  one  sector  of  synmetry,  only  22  segments 
may  be  used.  This  means  that  if  no  structure  symmetry  is  employed,  only 
22  segments  are  allowed.  The  number  of  segments  in  one  sector  of  symmetry 
plus  the  number  of  segments  on  the  axis  of  symmetry  must  be  less  than  or 
equal  to  22.  The  program  allows  up  to  12  sectors  of  rotational  symmetry 
maximum.  To  illustrate  this  point,  see  example  3. 

In  order  to  adapt  this  program  to  larger  machines,  one  must  increase 
the  size  of  the  arrays  and  also  check  to  see  that  the  error  checking 
limits  in  the  MAIN  program  are  modified  accordingly.  The  structure 
array;  CM  (N,N)  is  a  complex  element  array,  and  as  such  uses  two  floating 
point  variables  for  each  entry.  It  is  the  primary  user  of  core  in  this 
program.  The  EINC  array  and  the  P  array  of  common  block  /2 /  are  the 
excitation  vector  to  the  system,  and  an  array  of  pivotals  respectively 
used  by  the  factor  and  solve  routines. 


EQUATION  OF  CATENARY: 

Z=Z2  -  (X2-X)[W/2T  (X- 

W=WIRE  WEIGHT/M 
T=WIRE  TENSION 
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Common  block  /I /  contains  the  physical  description  of  the  structure 
in  terms  of  wavelength  dimensions  and  direction  angles,  plus  the  elec¬ 
trical  interconnection  data. 

Common  block  /3/  contains  the  direction  cosines  for  each  of  the  N 
segments. 

Common  block  /4/  is  used  to  hold  data  on  multiple  junctions  set  up 
by  subroutine  TRIO  and  JUNC.  Presently,  the  program  limits  multiple 
junctions  to  25  segments  at  a  point,  however,  this  is  easily  expanded. 

Common  block  /SCRATM/  is  used  as  a  temporary  scratch  location  by 
the  factor  and  solve  routines,  and  should  be  set  by  the  size  of  the 
CM  matrix. 

Common  block  /SMAT/  is  a  square  scratch  matrix  used  by  the  symmetric 
factor  and  solve  routines.  Its  dimensions  are  of  the  order  of  the 
number  of  symmetric  sectors  allowed,  i.e.,  12  x  12  in  this  version. 

Dimensioned  variables,  CURR,  CURI ,  ZLR,  ZLI,  ZLC,  AIR,  AIT,  BIR, 

BII,  CIR,  CII  in  the  main  program  and  NEFLD  subroutine  must  also  be 
expanded  to  the  appropriate  size  of  the  maximum  structure  allowed. 
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APPENDIX  A  WAMP  PROGRAM  LISTING 


PROGRAH  WAHP 

A 

1 

c 

A 

? 

INTEGER  P 

A 

3 

COMPLEX  ZRAT!  .AOHIT.2PCO.MRV.RRH,ZRSIN.RRO.CRX.£RV.£RZ.EPX.EPV 

A 

*♦ 

COMPLEX  CM.rj.EIMC.EXA.CU.CIV.CI2.EPC 

A 

5 

01  ME NS  ION  CUflft(IOO).  CUR H 100).  ZlR)??).  Zll(??>.  ZLC<??i.  COMUO) 

A 

6 

DIMENSION  TMETPiS*.  PMYR(S),  ETaRiS),  0THRI5).  0RNRI5) ,  NTMRiS ) .  N 

A 

7 

IPMPISI 

A 

B 

DIMENSION  AIRMOO)  .  AIIMOOl.  BlR(IOO),  81IM00).  C|R(  00 )  . 

Cl  1  MO 

A 

9 

10) 

A 

10 

DIMENSION  ISCCU3).  ENCR(I?J.  ENCIM?) 

A 

1  1 

DIFFUSION  C>€(?.??.  100) 

A 

1? 

COMMON  /  1  /  N.NP.XIIOO)  .VUOO)  .2' 1001  .SI  •  100)  .BlUOOi  .  ALPMOO 

I  .BET  I 

A 

1  3 

1100).  ICONI  I  100  I  .  ICONS) 100) .COLAM.NX 

A 

IV 

COMMON  /?/  CMISS.  100)  .EINCI 100)  ,P(  100) 

A 

15 

COMMON  /]/  CABl  100)  .SABI  100)  . SAL P f  t  00  I 

A 

16 

COMMON  /*•/  NCOX.JOX<SS>  ,NCIX.jrxi?Si  .NC02.  J02(?S)  .NC12.  JI2<SS) 

A 

17 

EQUIVALENCE  (CM.CME) 

A 

IB 

NROM*?? 

A 

19 

NCOL*  1 00 

A 

?0 

NMPA0E-N5 

A 

?l 

r J-CMPLXIQ. . 1 . ) 

A 

?? 

22-376  7?7?7 

A 

PI-3  IVI59S6SH 

A 

?V 

TP-?. -PI 

A 

?5 

TA- . 0 1 7H53S9SSS 

A 

?6 

TO-57 . S95779S 1 

A 

Si 

CONST-22/ <?  • TP ) 

A 

?e 

c 

A 

S3 

c 

A 

30 

c 

A 

31 

c 

ME  AO  IN  1ST  DATA  CARD- -80  COLUMNS  Of  RUN  COMMENTS 

A 

3? 

c 

A 

33 

1 

READ  (60.60)  ( COM( 11,1*1.10) 

A 

3v 

IF  (EOF .60 )  66.? 

A 

35 

c 

A 

36 

c 

A 

37 

c 

READ  ?•€>  OATA  CANO  TO  SELECT  RUN  OPTIONS 

A 

36 

c 

FTRINT  -  SELECTS  LEVEL  OF  DIAGNOSTIC  PRINTOUTS  0  TO  ? 

A 

39 

c 

ILOAD  •  SELECTS  LOAOED  ElEFCNT  OPTION  -0  FOR  NO  LOAD.  -1 

LOAD 

A 

VO 

c 

IPGND  •  SELECTS  A  PERFECT  GROUND  FOR  IPGNO  •  1.  -  0  FOR  FINITE 

A 

V  I 

c 

IGSCNN  -  SELECTS  A  MAOIAl  GROUND  SCREEN  OPTION  IN  CMSETUP 

A 

V? 

c 

INEAR  -  SELECTS  NEAR-FIClO  CALCULATION  IF  -  1  .  -0  FOR  NO 

CALC 

A 

v3 

c 

IF AR  •  SELECTS  FAR-FIElO  CALCULATION  IF  -  |.  -  0  FOR  NO 

CALC 

A 

vv 

c 

NPUR  •  A.B.C  CURRENTS  ANO  FIELD  CALC  ARE  NORMALIZED  TO  1 

WATT 

A 

v5 

c 

A 

V6 

? 

RE  AO  (60.69)  NPRINT  .  ILOAO.  IPGNO,  IGSCRN,  INEAR.  (FAR. NPMR 

A 

V7 

c 

A 

V0 

c 

A 

<49 

c 

A 

50 

c 

RE AO  IN  3RD  DATA  CARO 

A 

51 

c 

GHZ  •  ANTENNA  FRCQUCNC V  IN  GIGA  HERTZ 

A 

5? 

c 

GR  •  OCLTA-FREO  IN  GHZ  IF  NFS  GT  t  --  FREQ  •  GHZ  ♦  GR 

STEPS 

A 

53 

c 

PTS  -  NUMBER  OF  FMEQLENCY  STEPS  TO  CALC-  -GREATER  OR  •  1 

A 

5v 

c 

KSVP*  •  FREE  SPACE  ANTEWA  -  I  .  OVER  GROUNO  •  ? 

A 

55 

c 

EPSR  •  RELATIVE  OIELECTRIC  CONSTANT  OF  GROUNO 

A 

56 

c 

SIG  •  CONDUCTIVITY  OF  GROUNO  --  MHOS/METER 

A 

57 

c 

A 

50 

RE  AO  (60.70)  GHZ.  GR.  NFS.  KSVMP.  EPSR.  SIG 

A 

59 

C0LAM*0.?99793/GHZ 

A 

60 

IF  IKSVMP.EO  ?)  GO  TO  3 

A 

61 

EPSR- 

A 

6? 

SIG-0 

A 

63 

XSVMP- 1 

A 

6v 

69 


] 

WRITE  (61 ,71 ) 

66 

hftlTE  (61 .72) 

66 

UNITE  (61.73) 

67 

MMT£  (61. TNI  ICON! II. 1*1.101 

•• 

HRITE  1*1. til  NRRINT.  ILOAO.  1*00.  IOSCRN,  INCA*.  ITAR.NPHR 

69 

kite  iti.TSi  ohz.or.ks.colam 

70 

IF  IIPOO  CO.II  MM  TE  161. IO*M 

71 

ir  tKSYHP.CO  2  AND  IPGNO.EQ  01  MNITC  161. 7SI  CPSR.SIO 

72 

IF  IKSVHP.CQ.il  MUTE  (61.64) 

73 

C 

7H 

C 

Krone  reading  in  none  oat*  capos  in  the  main  ppogpam.  call  the 

75 

C 

DATA  OCKRATOR  TO  FILL  UP  Tt€  OCOMCTPr  ANPAYS  -■  THE  0ATA0N 

76 

C 

HILL  KOUIK  TK  NEKT-N-OATA  CAPOS--SEC  TK  APPPOPPIATE  DATA 

ON 

77 

C 

SU6N0UT INE  FOP  AOOITIONM.  DETAILS 

76 

C 

79 

c 

80 

CALL  OATAGN 

61 

c 

82 

c 

S3 

c 

0H 

c 

•CKf  HEAD  IN  NP  AND  NX  TO  SET  UP  SYMMETRY  CALCULATIONS 

85 

c 

IPHUKA  or  SEGMENTS  IN  A  POTAT 1 ONALL Y  SYMMETRIC  SECTION 

66 

c 

NX-NMMER  OF  SEGMENTS  ON  TfC  AXIS  OF  ROTATION 

87 

c 

NOTE  THAT  TK  PROGRAM  HILL  HOMK  ir  NP-N  A  NO  NX-0 

ee 

c 

89 

READ  (60.69)  NP , NX 

90 

MM  T£  (61 .771  N . NP , NX 

91 

NSIZE-T^-NX 

92 

NCOLSYM-N  NX 

93 

c 

9* 

c 

ir  NSIZf  IS  GREATER  Than  22.  TOO  MANY  SEGMENTS  PER  SECTOR  ARE 

USED 

95 

c 

AND  ICRP-I 

96 

c 

97 

IF  (NSIZE .LC .221  GO  TO  4 

98 

IERR-1 

99 

CO  TO  6^ 

ICO 

•* 

IP-MMAOC 

101 

SiEN-0 

102 

DO  6  l*|. N 

1  03 

IF  CNPRINT ♦ 1 )  7.5.5 

10** 

s 

AP-AiPC  1  1  •  TO 

1  05 

6T-9ET ( 1 l-TO 

106 

IP-IPM 

107 

IF  1 IP.LC  NPPAGC )  GO  TO  6 

108 

WRITE  (61 .76) 

109 

IP-1 

1  10 

6 

KITE  161.791  Kill. Ylji, /ill. silll.81tli.AP.BT.  I  CONI  IIT.T.IC  0N2 1  1  i 

1  1  1 

7  ALPt-ALPlM 
K  T  |  *K  T I  |  I 
CAiP-COSCM.PI  I 
SALPC  I  I  -S INC  AiP I  i 
CA#I  n-CALP-COSCKT  I  I 
SA#(  I  )-CALP*$INCKTI  ) 
SiCN-SiCN«SI C | > 

IF  f SI C | I .Cl  0.0)  00  TO  • 

tanc  (6t.ooi  i 

STOP 

•  CONTINUE 

IffITC  161 .61 >  SiCN 
ISCG< l3’-0 
00  t  K-l , 12 
ISCOCKI-0 
CNCRlKl-0.0 
«  CNC I CK ) -0 . 0 


All? 
A  II  3 
a  i  m 

A  I  IS 
A  I  16 
A  |  17 
A  I  10 
A  |  19 
A  l?0 
A  121 
A  I  ?? 
A  I  ?3 
A  12* 
A  125 
A  l?6 
A  127 
A  l?0 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

10 


c 

c 

c 


1 1 


c 

c 

c 


12 


II 


IN 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


im*o 

Mire  ft!  .if) 

. . .  CMC  I  T AT  JON* •*••••••• 

*CAO  N*5TM  OATA  CANO  TO*  THE  SOURCE  TO  Oil  VC  ANTENNA 
IS  •  EXCITEO  SC  GHENT  NUNKM 
ECN  •  HAGNITUOC  or  SEGMENT  CMC  1 T AT  ION- -VOLTS 
ECA  •  PHASE  or  EXCITATION  in  OEGftCCS 

NTtO  •  NTLO-I  ir  NONE  SEGHENTS  ARE  TO  iE  EXCITEO.  -0  TO  CM) 
USC  1.0  VOLT  AT  0  OEG  PNAZE  FOP  CONNECT  INPUT  IMPEDANCE  CALC 
I  TO  I*  SCOHCNTS  HAY  K  SIMULTANEOUSLY  CxCITEO 

NCAO  (I0,«))  IS.ECN.ECA.NTLO 
UNITE  ft!  .03)  IS.CCN.ECA  .IO’lO 
IT  II.LE.IS  ANO  IS  LE  N)  GO  TO  II 

IENH*2  IT  SOUNCE  SEOOCNT  IS  LT  |  ON  ONE  ATEN  THAN  NUH  OF  SEGS  USCO 

IENN*2 
GO  TO  6N 
X-ISEGf lll«| 

IF  (Hit  |?l  GO  TO  12 

IENN-3  IT  TOO  MANY  SEGMENTS  ANE  SClECTEO  FON  SOURCES 

IENN«3 

GO  TO  ON 

ISCGf III-K 

ISEGlKI* IS 

ECA*ECA*TA 

ENCNlKl *ECH*COS<ECA ) 

CNCI <KI*£CM*SINlECAt 
.r  <  tfLD  .  .  0  >  GO  TO  10 

ir  iiloao)  II. it. i3 
00  IN  |-|  .»* 

ELC 1 1 1 <*0.0 
ZLNl 11*0.0 
mi  11*0.0 


. . SEGMENT  LOADING***  ••••••• 

IF  llOAO  •  I.  ThCN  MEAD  IN  SEGMENT  LOAD  PARAMETERS 
w  *  RESISTANCE  IN  OHMS  ON  EACH  Of  THE  SPECIFIED  SEGMENTS 

Zl  -  IfOUCTANCE  IN  tews  ON  EACH  OF  THE  SPECIFIED  SEGMENTS 

ZC  -  CAPACITANCE  IN  FANADS  ON  EACH  OF  THE  SPECIFIED  SEGMENTS 
II  ■  LOADS  ANE  CONNECTED  FROM 

■  SCGfCNTS  II  TO  I?  INCLUSIVE 

NFLO  ■  I  FON  MORE  LOAD  CANOS.  *0  FOR  END  OF  LOAD  INPUT  DATA 

NOTE  IF  SYtVCTNV  IS  EWLOYEO  ANO  A  ROTaTIONALLY  SYMMETRIC  SEGMENT 
IS  LOAOCO.  T»«N  ALL  LIKE  SYMMETRIC  SEGMENTS  WILL  ALSO  BE  LOADED. 


IS  NCAO  ItO.tSl  ZR.ZI ,ZC, I  I , I2.NFL0 
IF  II*  CO. 01  l?-|| 

»NTITC  <61. Ml  II .  I?.ZN.ZI  .ZC 

IF  I I2.LT . I  I )  GO  TO  17 

IF  III  LE.MCOLSVH)  I  I *M00< I  I  ,NP  ) 

IF  t I2.LE  NCOLSYMl  l*»HOOi  l?.t*l 
IF  f I  I  GT .NCOLSYMl  I  I  *M00<  1 1  .NCOt  SYM i  *NP 
IF  l  12. GT. NCOLSYM)  1 2*H00 112.  NCOLSYMl  *NP 
00  If  1*11.12 
ZLCI I l-ZLCl 1 1 *ZC 
ZLNl I l*ZLN< |I«ZN 
It  ZLJII!*ZL)I|I«ZI 
17  CONTINUE 


A  126 
A  ISO 
A  ISI 
A  112 
A  133 
a  im 
A  I3S 
A  136 
A  137 
A  136 
A  139 
A  mo 
A  mi 

a  m2 
a  ms 
a  ms 
a  ms 

A  1S6 

A  |S7 

a  me 
a  mg 
a  iso 
a  isi 

A  152 
A  153 
A  15s 
A  155 
A  156 
A  157 
A  156 

A  159 
A  160 
A  161 
A  162 
A  163 
A  1 6s 
A  165 
A  166 
A  167 
A  166 
A  169 
A  170 
A  J71 
A  172 

A  173 
A  |  7S 
A  175 
A  176 
A  177 
A  178 
A  179 
A  160 
A  161 
A  162 
A  163 
A  Its 
A  165 
A  166 
A  167 
A  166 
A  169 

A  190 
A  191 
A  192 


£  !C  £ 


-71- 


C 

c 

c 


It 


c 

c 

c 


It 

to 


?l 

t? 

21 

c 

c 

c 

c 

c 

c 


a 


c 

c 

c 


tt 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


?9 


ir  inflo.  tc . o >  go  to  is  a  its 

A  Its 

••••••••••tfOIM  FREQUENCY  00  LOOP*""*""  A  Its 

A  IM 

00  03  ratt-I.NTS  A  it? 

fr-iomz^crj/omz  a  itt 

IF  IHK1 .EQ.  1 1  ft- 1.  a  Itt 

0MZ.QN7TA  A  too 

COLAN-O.tttTtS/GMZ  A  to  I 

A  tot 

ZRATI  •  THE  OAT  10  OF  THE  HALF-SPACE  TO  FREE-SPACE  PLANE  WAVE  IMPCO  A  tOS 

A  204 

ZtAT I-CSQRT II./ (EPSR-F J*SIG*C0LAM*59 . ttl  *  A  tOS 

ir  INKS. CO- 1)  GO  TO  ts  A  tot 

ir  INPRINT)  to.  19. 19  A  to? 

*«|TC  161.67)  GHZ  A  tot 

00  tt  l«l ,N  A  209 

Ml | >•*< i  >*fr  A  tio 

Yl  I  I  •  V  <  I  |*FR  A  1 1  I 

z<I)»z<imfr  a  tit 

siiii«sni>«rt  a  1 1 s 

tl  I  II -t  I  I  I  l*FR  A  th 

IF  l»*R!NT)  tt.tl  .tl  A  ?IS 

k«tTC  (tl.t?)  Ml  1 1  .Yl  | )  .tl  1 1  .SI  l  I  i  .BUI  I  a  tie 

CONTINUE  A  ? ! 7 

CONTINUE  A  tie 

A  2  I  9 

CHSETUN  IS  USED  TO  SET  UP  T*  COMPLEX  IMPEDANCE  MATRIX  A  tZO 

A  ttl 

CALL  CHSCTUP  I  ZRA  T  I  .  KS  YHP .  I  POND  .  I  GSC  RN  >  A  ttt 

A  ttl 

NON  ADO  IN  UC  IMPCOANCE  LOADING  ON  TMf  SELF  T  ERMS .  A  tt* 

A  ttS 

IF  (ILOAO  EO  0)  GO  TO  tS  A  tt6 

00  24  l-l .NSIZE  A  tt7 

j- i  a  tte 

IF  tl  .GT  J-NCOLSYM*  I  -NP  A  tt9 

IF  I ZLC I  I >  GT.OI  CHI  I . JI-CMI I  , J) «F  J/ I TP*GHZ*  I  E«9*ZLC I  I > *SI(I M  A  tlO 

CHI  |  .JI-CHI  I  .JI-ZLRI  I  * /SI  «  I  l -F  J«TP«GHJM  E  I  I  I  I  /  SI  I  I  )  A  t3l 

If  ITTtlNT-1)  tt  .tt  .26  A  tit 

CONTINUE  A  til 

00  t?  I • I .NS I tt  A  234 

l#|T|  161. ttl  I  ,  I  I  CHE  I  MAY  .1  ,JI  ,*  AY  -  |  ,t '  .  J  -  I  ,N  ■  AtlS 

A  236 

. . ‘SOLUTION  OF  THE  MATRIX  EOUAT  1  ON*  """"  •  A  t37 

A  1 30 

CONTINUE  A  239 

A  240 

FACTOR  TIE  ir^EDAMCC  MATRIX  A  24 1 

A  242 
A  tSl 

NOP-NUP«ER  OF  SVMETRIC  SEC  T I ONS- -MUST  BE  l£  It  A  244 

A  245 

NOP- IN-NX  I /NP  A  246 

CALL  FACTRC5  I  NP  .  NOP  .NX  .CM  .  P  .  NROM .  NCOL  .  I  »  A  247 

A  24  § 

SET  UP  THE  EXCITATION  SOURCE  VECTOR  ANY  OF  THE  N  SEGMENTS  HAY  A  249 

K  CXCITCO.  A  250 

A  251 

00  tt  l-l .N  A  252 

CINCi  M-CHPixiO  .0  i  A  253 

ISEOC-ISEGill)  A  254 

00  SO  l-l .  ISEGL  A  255 
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so 


II 

V 

c 

c 

c 

c 

c 

c 

c 

c 

c 


II 


3H 


15 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


IS-lSEGi I ) 

CINC<  IS >•-<:**.¥ I CNC* l  II  .CNCII  In/SIIIS) 

IF  I NMIINT.LT. Ol  00  TO  U 
MMI  TC  (SI .001 
00  II  IP*1  ,N 
XI«NCAUClNCUPl > 

X2*AltuC'EINC(  IPII 

IF  IXI.IC.O  .ON.X2.K.O.)  Hfc’TC  161.05)  IP.xi.X0 
«.  JNTINUE 

CONTINUE 

SOLVE  THE  SVSTCH  OF  EQUATIONS  FOR  SEGMENT  C UNDENTS- -- Th€  EINC 
ANNAY  is  THE  EXCITING  SOURCE  MATRIX  TO  THE  SOLVE  SUBROUTINE 
AIC  THE  CUNNENTS  A RE  RETURNED  FROH  SOLVE  IN  THIS  ARRAY. 

CUNI  •  INVICHI  •  EINC  I 

CAwL  SOLVECS  ( NP , NON . NX  ,  CH .  P  .  E  I NC  . NRON ,  NCOL  I 

T*  SC  GHENT  C  LAMENTS  ARC  N£  TUNNED  TMNOlGH  THE  EINC  ANRAY 

00  II  1*1 .M 

CURRI  1 1  *RC  al  (E  INC  <  1 1 1 

CUftim-AJNAOlCINCt  M  > 

NNALF-IN* I l/| 

IN-NRPAGE 
00  Is  I  .  I  ,N 
j-i-mulf 
ip*ip»i 

cm»o-sqp-  icurmi  i  j-cumri  i  i  -curi  i  i  i  -curi  i  i  1 1 
PH-TO-JUT*NPlCURI  I  I  I  .CURB!  I  I  I 

if  i j  ot. ni  oo  to  is 

CMAGP-SGRT  <  CURB ( J I  •CURB l  J I  .CUR  I  ( j  i  •  CURI  I  j  1 1 
PW-TD-MTAMPICURI  (  ji  .curri  ji  I 
ir  i  ip.le  .wpxgei  oo  to  is 
wire  id. 9i  i 

IP- 1 

^WITC  161. 9?)  I.CWRIII.CWIIII.CMXG.PM.J.CURRIJI.CURIIJI.CMAGP.PM 
WITE  (6I.9PI  I  .CURRI  1 1  .CURI  I  I  I  .CMAG. PM 

IF  MORE  THAN  l  SEGMENT  IS  EXCITCO.  AN  INPUT  IMPEDANCE  IS  NOT  CALC 

TO  OBTAIN  TTC  CORRECT  ITT  IT  IWtOANCC  TMC  ANTENNA  SEGMENTS 
T6IST  K  EXCITED  MITh  a  I  J  VOLT  At  0  OCO  PHASE  SOUNCE 

IF  I  ISEGL  GT  |i  GO  TO  36 
AOMI  T-CURRI  Is.  -F  J-CURI  list 
AORAG-CAaSlAOMITl 

AOFA/.AATANPI  CUR  I  (  ISI  .CURRI  ISl  >  *  TO 

ZPCO-I  /AOMI  T 
/MAG- 1  .  /  AOHAG 
/FA/.-AOFA/ 

AOMI  TR.REAL  I  AOMI  T  I 
AOMI  T I  -  A  I  MAO  I  AOMI  T  I 

ZPEOR-REAL'ZPCOI 

ZPEOI-AIMAOlZRCDl 

l*,Tf  <61. til  AOHITN.AONITI.2NEOR.ZFCDI.ADNAG.AOFAC.7HAG.CFAZ 
CONTINUE 

IF  "PRINT. GT.Ol  UNITE  <61. 9V' 

CXNAK)  T»€  SOLVED  CtPRENTS  AT  SCGHCNT  CENTERS  INTO  A  CONSTANT  PLUS 
A  SINE  ANO  COSINE  TERN-  MS»  •  A  ♦  0*$|Nik*S>  ♦  C*COS<K*$i 


A  056 
A  057 
A  055 
A  059 
A  090 
A  091 
A  090 
A  061 
A  06** 
A  095 
A  096 
A  067 
A  066 
A  069 
A  070 
A  071 
A  070 
A  071 
A  07V 
A  075 
A  076 
A  077 
A  076 
A  079 
A  060 
A  061 
A  060 
A  081 
A  06** 

A  065 
A  086 
A  007 
A  066 
A  089 
A  090 
A  091 
A  090 
A  091 
A  09** 

A  095 
A  096 
A  097 
A  098 
A  099 
A  100 
A  SOI 
A  300 
A  303 
A  30V 
A  305 
A  306 
A  307 
A  308 
A  309 
A  310 
A  31  I 
A  310 
A  313 
A  31V 
A  315 
A  316 
A  J|7 
A  318 
A  319 


00  5V  | ■ | , n 
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CALL  TRIO  •  I  .XOI  .XO?.OlL.DIKl  A  320 

5,51111  A  3(1 

CL ■ T0*OIL  A  3(? 

CK-T9-0IK  A  3(3 

SI*.-SIN<CLl  A  32s 

COSL«COS(CU  A  3(9 

SIRt-SINiCKi  A  3(f 

COSK -COS <CK )  a  3(7 

SILK-SIN(CL*CK)  A  3(9 

CCLLO«SINL+S INK-SILK  A  3(9 

ir  I JCOI I  37.H?.H3  a  330 

37  CNLO-0.0  A  331 

CILO-O  0  A  33? 

If  INCIX.LT. I >  00  TO  39  A  333 

00  31  K-l .NCIX  A  334 

Jl XK-JI X (K >  A  339 

CNLO-CNLO«CUWI( JIXK)  A  336 

M  CIIO-CIIO+CURI ijixki  A  337 

39  CONTINUE  A  339 

IF  INCOX.lt  I)  GO  TO  hi  a  339 

DO  HO  K-| .NCOX  A  3H0 

JOXK-JOXIK)  A  3H1 

C0LO-C0LO-CUR9IXXK  l  A  3H( 

HO  CIL0-CIL0-CU9I < JOXKi  a  3H3 

hi  CONTINUE  A  tuw 

00  TO  HH  A  3H5 

H?  C0LO-O.O  A  3H6 

ClLO-O  .0  A  3H7 

00  TO  HH  A  3h8 

H3  CNLO-CUNNIXOM  A  3H9 

ClLO-CUNMXOl  I  A  390 

HH  C0LL-CUN9<|)  A  35 | 

C  ILL -CUR I C I »  A  35? 

If  CXO?>  H5 ,50.51  A  353 

H5  C0LY-O  0  A  35H 

CILY-O  0  A  355 

IF  (NCOZ.LT.il  00  TO  H7  A  356 

00  H6  K-l .MCOZ  A  357 

JOZK- JO/(K)  A  350 

CNLV-CNLY«CU9*(J0ZKi  A  359 

HS  C!LY-CILY*CUNl  C  JOZK)  A  360 

H7  CONT  INLC  A  36  i 

If  INCIZ.LT. I »  00  TO  H9  A  36( 

00  H9  K-| .NCIZ  A  363 

JlZK-JIZ(K)  A  36H 

C0LY-C0LV-CUN9(  JIZK)  A  365 

H9  CILY-CILY-CUR1 (JIZK)  A  366 

H9  CONTINUE  A  367 

OOIOK  A  369 

50  CNLY-0  0  A  369 

CILY-0  0  A  370 

00  TO  5(  A  371 

51  CNLY-CUNN  1X0(1  A  37( 

CILY-CUNHXO?)  A  373 

5(  AINU  >»(C9L0*SIR<*CRLL*SlLK*Cm.Y*SlNL  1  /CELLO  A37H 

A||l  I  l-(CILO*S|NK-ClLL*SILK*CILY*SINL  > / CCLLO  A  375 

919(1) - ICNLO* (COSK -  I .  '  *C9LL  • <  COSL -COSK 1 *C0L Y# 1 :  -COSL 1  I /CELLO  A  376 

ilMII-ICILOMCOSK'l  OHCILL*ICOSL-COSK>*CILY».  I  O-COSL  I  )  /CELLO  A  377 

CI9II  )--lC9L0*SINK-C9LLMSlNL*SINK**C9Lr«SINL  )  CELLO  A  370 

CIMI)--(CILO»SINK-CILL*ISINL*SINK>*CILY*SINL>/CULO  A  379 

IF  (NP9INT)  5H.5H.53  A  390 

53  N9ITE  (61.95)  I.A|0<|),a||i|i.BI0i|).91I(|>,CI9iI).CII(I>  A  391 

5H  CONTINUE  a  39? 
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C  a  J#H 

C  IF  NPMR-I  NORMAL  ICC  THE  ANTCWIA'S  INPUT  POUCH  TO  A  PCFCPCNCC  A  in 

C  I  -MATT  ll#UT.  a  JM 

e  A  JOT 

c  . * . * .  A  JM 

IF  IWWI.ca  01  00  TO  5?  A  JM 

PMK'PfO .  *  jt0 

00  99  l-l .  ISCGL  A  JSI 

I  CMC I  T  ■  I  SCO  1 1 1  A  JH 

PM-O. S<RCAL<<CNCRI  I  I<FJ<CNCI<  I  1 1*  ICURRI  IEXC1 T I -F J<CURI I  ICXCITII  I  A  JBJ 

P***SUH*PNR9UM<PW»  i  J9S 

»  CONTINUC  *  J9, 

hatti«sopti  i . /pimsuhi  a  ]M 

MITE  101  .Ml  MATT  I  A  Jg7 

00  M  l-I.N  A  JM 

C  A  JM 

C  NORMAL  I ZC  TMC  ANTENNA  CUNPCNTS  to  AN  COUIAVLCNT  I  MATT  OPIVE  TOR  A  SOO 

C  FIELD  CALCULATIONS  A  KOI 

c  a  soe 

AIRI I l*AIR< | ■•HAITI  a  401 

Allll  l-AI II | I •MATT  I  a  SOS 

B1R<II<BIRIII<MATTI  A  SOS 

BII<II<BII<  1 1 "MATT  I  A  S06 

C  IR(  I  >-CIRt  1 1  -MATT  I  A  SOT 

Cl  I  I  I  I -C I  I  I  I  I •MATT  I  A  SOB 

M  CONTINUE  A  SOB 

9?  CONTINUC  A  SIO 

C  A  SI  I 

c  . NEAR  FIELD  CALCULATIONS . .  ASie 

C  A  SIJ 

IF  <  INEAR. CO.  I  I  CALL  TCFLO  l  A IR .  A I  I  .  SIR.BI  I  ,  C  IR .  C  I  I  .  ERA  T I  .  KSYMP  l  A  sis 

c  A  SIS 

C  A  S  16 

C  . FAR  FICLO  CALCULATIONS .  ASI7 

C  A  SIB 

*■0  A  S 19 

IF  I IFAR.EO.OI  00  TO  SJ  A  s?0 

M  N-N<l  * 

C  A  SZR 

C  FAR  FIELD  IITUT  SELECT  IONS- -UP  TO  9  CAROS  RAT  BE  USED  A  s?J 

C  TIC  TR  •  INITIAL  THETA  COORO INA  TC  - -OCOREES  A  s?s 

C  PHYR  .  INITIAL  PHI  COORDINATE  -  -  DECREES  A  s?S 

C  ETAR  .  ETA  ANOLC - -OCGRCES  A  s?6 

C  Dim  <  OCLTA  T«TA  STEP-  -DEG  A 

C  OPMR  •  DELTA  PHI  STEP  -DEC  A  s?8 

C  NTIW  •  NUMBER  OF  theta  STEPS  A  sa9 

C  IM*  •  NLPBCR  OF  PHI  STEPS  A  SJO 

C  ICLD  •  >0  IF  NO  MORE  FAR-FIELD  CAROS,  -I  TOR  MORE  INPUT  A  SJI 

C  XUSIG  -  .|  IF  FAR  FICLO  CALC  OVER  DIFFERENT  UDIA.  -0  IF  NOT  A  sJJ 

C  SIOFF  .  CUAOUC  T  I  V  I  T  Y  OF  FAR-FIELO  MEDIA- -MHOS  TMC  TER  A  s  33 

C  CPSFF  ■  RELATIVE  OICLCCTRIC  CONSTANT  OF  FAR-FIELD  MEDIA  A  SJs 

C  A  SJS 

RE  AO  IBO.BSl  TI*TR<XI.PMYR<XI.CTAH<XI.OTMR(XI,OPHR<X>.NTMRIXI,NPMA  A  s  36 

I  INI  .NTLD.NEMSIO.SIOFF  .CPSFF  A  SJT 

IF  <IBL0.NC.0l  00  TO  SB  A  SJB 

««•«  A  SJB 

IP.TMPAOC  »  H*o 

00  %i  NR* I .NIW  a  SS| 

nRRF *opi m nr  i  a  ssz 

IB<BM<IBHB<XRI  A  SSJ 

THK)*TI«TRIMRI  A  SSS 

DTIBN-OTIBlXRI  a  SSS 

NTIBH<NTt«<XR>  A  SSS 

SCTA<SIN<CTAR<NRI<TAI  A  SST 
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CCTA-COS(CTA*<Kftl*TAt  A  440 

P*«*-PMYR<KR)-OPmK  A  44» 

C  A  450 

C  LOOP  THROUGH  THE  PHI  ANGLES  A  451 

C  A  HW 

OQ  6*  KP-I.NPHRK  A  453 

PHRK«P*«lf*OPHRK  A  454 

PHRKA-PHRK-TA  A  455 

SPMl-SINlPNRKAI  A  456 

CPHI-COSIPMWAJ  A  457 

THRK-THRO-DTMIK  A  456 

PKX-SPM!  A  459 

FKY-CPMI  A  460 

C  A  461 

C  LOOP  THROUGH  THE  TMETA  ANGLES  A  46? 

c  A  463 

DO  6?  KT-I.NTHRK  A  464 

UWK-THRK-OTHRK  A  465 

THRKA»THRK«  TA  A  466 

STfrCT-StNlTWKA)  A  467 

ROX-STHET-CPHI  A  466 

ROY-SUCT'SPMI  A  469 

ROZ-COSlTHRKAI  A  470 

EIXR-CETA-ROZ-CPHI -SCTA'SPHI  A  471 

EIVR-C£TA*R0Z«SPHI-SCTA»CPH|  a  47? 

EIZR-CETA-STMET  a  473 

IP«IP«I  A  474 

CIX-Cr*»LXIO.  ,0.1  A  475 

CIY-CHPLXIQ  .0. )  A  476 

CIZ-CHPLXIO  ,0. >  A  477 

C  A  470 

C  IF  YOU  WANT  TO  CALCULATE  THE  FAR  FIELD  RAO!  AT  ION  PATTERN  OVER  A  A  479 

C  tCO! A  **ICH  IS  DIFFERENT  THAN  THE  NEAR  f  lELO.  SET  NEHSIG-I  AND  A  460 

C  READ  IN  Tf«  NEW  GROUND  PARAMETERS  ON  TMt  FAR-FIELO  CARO.  A  401 

C  A  4B? 

IF  (PCUSIGEO.II  ZRATI-CSOPT  I  I  /  I  EPSFF  -F  J»S  I  OF  r  •COLAM*  59 .  9?  >  ►  A  403 

ZRilN-*CSQRT  (  1  . -ZRATI  -ZRAT  I  •STHET'STHET  A  404 

RRV»CROZ-ZRATI«ZRSINI/IROZ*ZRAT|*7RS1Ni  A  405 

RRH"  -  I ZRAT  I  -ROZ-ZRS  I M I  /  <  ZRAT  I  *ROZ*7RS  I N  i  A  406 

RRO-RRH-RRV  A  497 

00  60  l»I.N  a  406 

CAR I -CA8< I  I  A  409 

SARI-SARI  1 1  A  -.90 

SALPI-SALPI I )  A  491 

RFL-- I  A  49? 

00  60  K- | .KSVHP  A  493 

RFL-Rfl  A  494 

ARG*X ( I »  *ROX* V  I  I  I “ROY  *2  < I ) *R07  *RFL  A  495 

CARC-COSl  TP-ARGI  A  496 

SARG-SINi  TP*ARG>  A  497 

EXA*CHPL  X  I CSARG . SARD  I  A  490 

OOOEL«ROX»CARI*ROy*SAR|*ROZ*SALPl*RFL  A  499 

XOCCL-CARI -R0>  *OOOEL  A  500 

YOOEL -SARI- ROY »OOOEL  A  501 

ZOOCL-SALPI  •RFL-ROZ*DOO£L  A  50? 

OfCGA-  OOOEL  A  503 

EL -PI  -SUM  A  504 

SILL-OFCGA-EL  A  505 

T OP-EL *SILL  A  506 

ROT«EL -SILL  A  507 

A-l?.0-»COA«OHEGA«£L«£L/3  Oi-EL  A  506 

IF  lARSiOFCGAi  GE  IE-71  A-?  .  *S  INi  S  ILL  i  OMEGA  A  509 

TOO-l  O-TOP-TOP/6  0  A  510 

IF  I  ARSl  TOP »  GE  I  E-9»  TOO-SINi  TOP  i  '  TOP  A  511 


76 


99 

•0 


El 

U 

63 

6H 

as 


c 

c 

c 


E7 


n 

70 
7| 
7? 
7  J 
TS 
75 


•00*1  O-OOT'OOT/S.O 

IF  IMHIOOTI  ,0C  .  I  .C-ll  MO-SINIOOT  i /001 
••CL  M»00- TOO  I 

c-clmmo-tooi 

*••*•* mi  i  >••••■  1 1 1  i-c-cmt  1 1 

RI-*-»l  I  <  I  ■-■•■IMl  I  l-C-CI I 1  I  I 

"RX-RR'XOOEl 

OOY-MR-YOOCL 

ooz-rr-zoocl 

rix-ri-xoocl 

riy-mi-yoocl 

RI2-RI-Z00CL 

ERX-CNPLXIRRX.RIX) 

ERV-CHPLXIRMY.III  Yl 

CRZ-CNPLXIRRZ.RIZI 

IF  IK. 1C. 21  00  TO  59 

CPY-PKX-CRX-PKY-CRY 

(FX-MX'CFY 

EPY-PKY-EPY 

t*x—  irrv-erx-rmo-epxi 
ERY--  IRRV-ERT-NMO-CPY  I 
CRZ— RRV-ERZ 
CIX-CIX-CRX-CXA 
CIY-CIY.ERY-EYA 
CI2-CIZ-CR2-EXA 
CRX-CONST-CIX 
COY-CONST  »C  I Y 
CNZ-CONST-CIZ 

CPC-CYX-E IXR-CRY-C I  YR-ERZ-E  I  ZR 
CO-OI..  .ICOCI 
C I -A IHAO ICOC I 

COAO-CAasiCOX-STICr-CPNI-COY-STKT-SPHI  -COZ-KOZl 

ETtCTA-CAKlERX-NOZ-CPHI  -ERY  •ROZ'SF’H  I  -COZ-STMCTl 
CPHI-CA6S(-ERX-SPHI-ERY-CPHI  I 
PHAZC-T0-AATAN2ICI  .COI 
EWUQ-SORT  <  ERAO-  -2-E  TIC  T  A  •  -2-EPH I  •  -2 1 
IF  (  IP.LE.MMAOCI  GO  TO  Cl 
MUTE  111  .971  I  CON  I  I  I  .  |-|  ,  101 
IF  IICUSIG.Ca.il  Mil TC  161. 9*1  CRSFF.SIGFF 
HOITC  161.991 
10- 1 

Mine  161. 1001  TlMK.HtCK.ENAO.CTMETA.FPHI  .CRHAG.PMAZE 

CONTINUE 

CONTINUE 

00  TO  I 

*6*1  TC  (61.1011  I  EON 

CONTINUE 

STOP 


FOWIAT  IF/JJH  ANTENNA  IS  NOOCLEO  IN  FREE  SPACE'/l 
FONHAT  I2IHI  FREQUENCY  IN  ONZ  •  ,F  12  .«  .  /  /  ,*«  .rmxi  1 1  ,»x 
IMZI 1 1 ,5X  .SHSI 1 1  I  ,SX  .5H9I I  I  1  I 
FONHAT  IIOAOI 
FORMAT  l  16191 

FORMAT  I2FI0.S.2I5.2FI0.9) 

FONHAT  I///  ,30H|  *•••••••••••••••  os**  . . .  , 

rowur  I/.30N  Him.  ANTENNA  NOOCLINC  WIOONAW./I 
FONHAT  ()0H  *••••••• . . . 


.•♦MV  111, 6X 


.4 


FONHAT  I///.IX.IOAN/) 

FONHAT  l/|X.|HFflCOlCNCV|?X.  |H«E>3  5' IX.??HFRCOUENCV  INCREMENT  -El 
2*5/n*'***°  "****'  *,%/  1X.22MMAVE length  (HETEHSi  •£  I  3 


A  51  2 
A  913 
A  914 
A  919 
A  919 
A  917 
A  919 
A  919 
A  WO 
A  921 
A  922 
A  923 
A  524 
A  529 
A  529 
A  527 
A  529 
A  529 
A  530 
A  531 
A  532 
A  533 
A  534 
A  535 
A  536 
A  537 
A  539 
A  539 
A  540 
A  54| 

A  54? 

A  543 
A  544 
A  545 
A  546 
A  547 
A  548 
A  549 
A  550 
A  551 
A  552 
A  553 
A  554 
A  555 
A  556 
A  557 
A  558 
A  559 
A  560 
A  561 
A  56? 

A  563 
A  564 
A  565 
A  566 
A  367 
A  569 
A  569 
A  570 

A  571 
A  57? 

A  57J 
A  574 
A  575 


889  £8  9  831*  S3 YS  8*8S 


77 


79 

7  7 

79 


99 


100 

101 

10? 


FORMAT  <IX.??HGMOIjK>  PLANE  AT  2  •  0  .  /  I  X ,  ??H0 I ELECTRIC  CONSTANT 
I  I1.9/IX.I2MC0NDUCTIV1TY9X,  IH-Cll  5/t 

FORMAT  l  /  /  I X , ??HNUM9ER  Of  SEOKNTS  •  14/  1 X  . ??MNO .  SCO.  IN  A  SCCTO 
IN  -14/  .  IX.  3IW0.  SCO.  ON  AXIS  OF  NOTATION  -  .1*0 
rONHAT  IHtHI  STNUCTUNC  QCOMETNV  (DIMENSIONS  IN  WAVELCNOTWS 1/ /?X .6 
I3HC00N0INATCS  OF  SCO.  CCNTCN  SCO  WIRE  ONICNTATION  AN? 

??MOLrS  CONNECT  ION  DATA  /6X33HX  Y  2  LCNOTHH 

MH  X  AO  I  US  ALPHA  OCT  A  I-  I  |  ♦  | 

rONNAT  (4f  IQ.5.F  10. 7,?f  10. 1, SIS) 

FONNAT  (SON  NEGATIVE  SEGMENT  LENGTH  |-!*l 
FONNAT  t/?3M  TOTAL  WlNC  LENGTH  -El0  lit 

FONHAT  I  /?9M  ANTENNA  SOUNCE  0 1 STN 1 9UT  I  0NS/?4H  SEC.  vOLTAG 

1C  /?6 H  NO.  MAG.  PHASE) 

fonnat  iis.arto.s.isi 

FONHAT  <5FI0.5.4I5,?F5. I > 

FONHAT  (3CI0. 3.315* 

FONNAT  (9H  SEGMENTS.  I4.5M  THRU.  14. |?H  LOAOED  WITH.EIO  3.I6M  OHMS  R 
IESISTANCE  .E  I  0 . 3.?3M  HENRIES  INOUCTANCE  ANO.EIO  3  .  ?0h  FARADS  CAPAC  I 
?TANCE  > 

FORMAT  I  OF  10.5) 

FORMAT  l/lX.JH  I  • 1 3/ « IX. I OE 1  I  3)) 

FORMAT  l/IX,  I5.5X.EM  3.3X.EI  I  .  3> 

FORMAT  (44MI  SEG#<NT  EXCITATION  f  VOL  TS/ WAVELENGTH)  /«*|H  SEC  NU 

IMKN  REAL  PART  IMAGINARY  PART  » 

FORMAT  C5MISCG.  3X.0MCURRENT- .H0X.HHSEG  *♦  X  .  9HC  URRE  N  T  -/IX.3HN0  5X.4 
IHNCAL  6JH  IMAGINARY  MAGNITUOC  PHASE  NO 

?  RC4»OL  IMAGINARY  MAGNITUOC  PHASE  I 

FORMAT  (IX.|4.EI3.4.EI?4.E!6  8.F9  3.9X.  I4.EIJ  4 .  E  I ?  4  .£  1 6  8  .  F9  3  i 
FORMAT  I4X.6MA0H|T-?EI?.4.  lOX.SMZPEO^  I?  4/6XE  10  4.?XF|0  3.  IBX.El 
IO.N.PX.F 10. 3) 

FORMAT  (4MI  1 6X  ,  ?HAR 1 0 X  , ?HA  I  I  I  X  ,  ?HBR  I  0 X  ,  ?H0  MIX,  ?HC R I  0 X  , ?HC  I  ) 
FORMAT  IJX. 14. 3< IX.?El?  4)  ) 

FORMAT  (39H|  . .  #  »  »  i  . *.//.40H  VOLTAG 

IE  TO  ON  I  YE  ANTEM4A  AT  I  -  WAT  T  .  .FI?  5. /'.SOM  ALL  FIELOS  ARE  NO 

PNMAUZEO  TO  THIS  INPUT  POWER/  /HIM* . .  . 

3  •  •  •  i 

FORMAT  (2HI  . IOA0/I 

FORMAT  l??HOIELECTR|C  CONSTANT  •  ,EI?  4 .  ?QH  AND  CONDUCTIVITY  •  ,El 

i?.4,?9h  for  fan  fielo  calculations  n\ 

FORMAT  (HIM  OBSERVATION  ANGLES  ELECTRIC  r 1 1  LD  /MX . SHTHC TA  .  5x 
I  .  J^MI  .  I3X.  1  I W- COMPONENT  .  7x  .  1 5HTHE  T  A-CGMPONEN I  ,6X.  I  3hPM  I  -COMPONEN 
?T  |  OX  .94MAGNI  TUOC  ,  I  OX  ,  6H  PHASE! 

FORMAT  (PIIX.F8.  31 .1?X.«*(CI?  4.0X),F|O  *♦ ) 

FORMAT  I  I  7H  STOP  ERROR  NO. 15) 

FORMAT  <3?M  A  PERFECT  GROUND  PLANE  AT  /  0  > 

END 


A  9  ’6 
A  977 
A  971 
A  979 
A  390 
a  991 
A  99? 
A  993 
A  504 
A  999 
A  996 
A  997 
A  998 
A  989 
A  590 
A  591 
A  59? 
A  593 
A  594 
A  595 
A  596 
A  597 
A  596 
A  599 
A  600 
A  601 
A  60? 
A  603 

A  604 
A  605 
A  606 
A  b07 
A  609 
A  609 
A  610 
A  61  i 
A  61? 

A  613 
A  614 
A  615 
A  616 
A  617 
A  6  I  8 
A  619 
A  6?0 
A  6?1 
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C 

c 

c 

c 

c 

c 


FUNCTION  AATAN?  IV. XI 


THIS  rucriON  cowectLY  co**u»cs  thi  arc  tanocnt 
*mKf«NIS  Uf>  MC TURNS  AN  ANSNCR  IN  THC  RANH  Of 

Ttsr  IMRjT  AROUTCNTS 


TO*  ALL  INPUT 
-  PI/? 


PIOe-1 . 570796327 

IF  IV.CO.O. I  GO  TO  I 

IF  IX.iO.O. I  00  TO  ? 

AATAN?«ATAN?IV.XI 

PCTUMi 

AATANe-O. 

IF  IX.LTO.I  AATAN?«?  »PIO? 
PC  TUM 

AATAN?.SIGNlPIO?.V) 

PCTUPN 

cm 


»  i 

b  a 
B  3 
B  H 
B  5 
B  6 
B  7 
B  8 
B  9 
B  10 
B  I  | 
B  I? 
B  13 
B  IN 
B  15 
B  16 
B  17 
B  IB- 


79 


C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


2 


c 

c 

c 


$lflffOUT!NC  CNSETUP  (  /RAT  I  ,K$  W,  IPGNO .  1  GSCRN) 

SUBROUT  INC  CNSCTL*  IS  USCO  TO  SETUP  THE  COMPLEX  IMPEOANCE  MATRIX 

cm. 

COMMON  / 1  /  N.NP.Kt  100)  .YMOO),2HQO)  .SI  HOOl  ,BI  <  100)  .ALP<  100)  ,BETl 
M0O>  t CONI  MOO <  .  ICON2MOO)  .COLAM. NX 

INTEGER  P 

COMPLEX  ZRATI  .RErs.RCFPS.ZASIN 
COMPLEX  2RATIS.ZSCRN.ZFACT 
COMPLEX  FJ.CM.EINC 

COMMON  tB(  CMl2e.IOOi.EINCllOOl.PMOO) 

COMMON  /J/  CAft<  100)  .SAOMOOt  ,SALP(  100) 

COIWIQN  /*#/  MC0X.J0X(29I.NCIX.J|X<25)1NC02.J0Z«?5..NCIZ.JI2<25» 
COmON  /REFLZ  RMOX.RMQY.RHOZ.CABJ.SABJ.SAlPR.PX.PY.RCFS.RCFPS 
DIMENSION  CTPI3) .  ET| f 3) 
rj-CMPLX(0. .  I) 

pi-j. iHistess 

SIGN-1 

>W-NP*NX 

NSYM-N-NP 

ZMAT  t  S-Z9AT I 

IP  < I GSCRN  CQ.O)  GO  TO  I 

IF  IGSCNN  |)TUT  IN  THE  MAIN  PROGRAM  ■  I.  A  RAO  I AL  WIRE  GRODNO 
SCREEN  IS  SELECTED.  YOU  UlU  BE  REQUIRED  TO  N£AO  IN  THE  NUMBER  Of 
Of  WIRES*-  m  I  RES  AND  IK  RADIUS  Of  THE  RADIAL  WIRES  fOR  EACH  PASS 
TfWOUOM  THE  FREQUENCY  DO  LOOP 

READ  160.19)  NW I  RES. CON 

IF  A  RAO  I  AL  GROUND  IS  SELECTED.  COMPUTC  SOME  PARAMETERS  FROM  Tm£ 
*M«ER  Of  RADIAL  WIRES--NMIRES.  ANO  FROM  ThE  RADlUS-  COH  (METERS) 

COM-COM/COLAM 

FLUIRE-NWIRES 

SNf ACT -FL  WIRE *COH 

W-2. ‘PI-0  299793*1  E*9/C0LAH 

UO-N. -P|  •  |  E-7 

ZF  AC  T-F  J-UO-W-COLAM/FLWIRE 

EIAO-IZO. -PI 

WRITE  (61.201  (WIRES. CON 

CONTINUE 

00  £  1-1 .NR 

DO  ?  J-l ,N 

CMC | . J)-CMPLXI0  .0  I 

J-  -SOURCE  LOOP  INOCX 

00  IB  J-l ,N 

CALL  TRIO  I  J.UCOI  .  JC02.0II  .OIK) 

5*51 i J) 

B-BI ( J) 

XJ-XI J) 

YJ-YI J) 

ZJ*Z( J) 

CABJ-CAfll j> 

SABJ-SABl J) 

SALPJ»SALP(  J) 

00  IB  l-l .NR 

I  - -OSERVAT  | ON  LOOP  INDEX 

IX-I 


C  I 

c  z 

C  3 
C  4 
C  s 
C  6 
C  7 
C  • 
C  9 
C  10 
C  II 
C  iz 
C  13 
C  M 
C  IS 
C  16 
C  17 
C  IB 
C  19 
C  20 
C  21 
C  22 
C  23 
C  24 
C  2S 
C  26 
C  27 
C  28 
C  29 
C  30 
C  Jl 
C  32 
C  33 
C  34 
C  35 
C  36 
C  .37 
C  38 
C  39 
C  40 
C  41 
r  42 
C  43 
C  44 
C  45 
C  46 
C  47 
C  48 

C  49 
C  50 
C  51 
C  52 
C  53 
C  54 
C  55 
C  56 
C  57 
C  58 
C  59 
C  60 
C  61 
C  62 
C  63 
C  64 


C 

C 

c 
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ir  m.ot.npi  ix.i.nsyh 

XIJ.XCIXI-XJ 

YIJ-VIIXI-YJ 

IJ-IX-J 

c«ai*CMnx( 
tui'Uii  ixi 
SALPI-SALPI  IXI 

art— i. 

oo  ta  ip. i.ksynp 

«YHP  LOOP~t.CN  IP..  00  FREE  SPACE  ,  IP.*  00  GROUNO  IHAOE  CALC 
RFL--RFI 

f*°"  *****  K#*xi  to  observation  poine  me  as 

ALONO  tHC  AXIS  OF  TtC  SOLWCE  SEGHENT  ANO  A  LINE  PERPENOICULAR 
,0  Tt*  «IS  AND  THE  OBSERVATION  POINT 

POINT^"*^  "  ,Mt  °IS,*NCt  T*  SOURCE  ‘NO  THE  OaSEPVATION 

DISTANCE  1ETHEEN  OBSERVATION  POINT  AND  AXIS  OF 

EIJ.El IXl-RFL'/J 

01  -CAOI  'CABJ.SAai  •SAOJ.SALPI  "SALPj.RFL 
0*-XIJ-CAa|.YIJ-SAB|./l  J-SALPI 

*P-XIJ.CAOj.Ylj.SAaj.Z|j.SALPJ-RFL 

RS.XIJ.XI  J.YIJ.YI  J.*|  J.*|  J 

RHi-RS-ZP./P 

IF  HM*.LT.  I  ,E-*OI  00  TO  1 
RM-SORTlRNil 

opp. io?-zp«ai i/rh 

00  TO  N 
OP*-0. 

RM-O. 

CONI :nl» 

SKIP  TVER  TIC  GROW®  INAGE  STUFF  IF  OOING  A  FREE  SPACE  CALC 

IF  I IP.NE.*>  GO  TO  10 
SALPR.SiLP;*RFl 
"NOX.XIJ-CAaj./P 
»«».YIJ-SAaj.EP 
RMOZ-ZI  J-SALPJ'ZP.RFL 
••IRG.SOPT  IRHOX •RHOX.RHOV .RMOT  .RMOZ  *RM07  i 
IF  IRHAG  OT .  I  E-61  GO  TO  5 
RMOX-O . 

RMOY-O. 

RMOZ-O. 

OO  TO  S 
»«X.RHOX/«WAG 
RHOY.RHOY/RNAG 
RMU-RHOZ/RHAG 
RNA0-S0PTIYIJ.YIJ.XI  J.XIJI 

SCNCCN  irrCOAMCC  IN  PARALLEL  WITH  THE  GROUNO  IHREOANCE. 

If  UOSCRN  EO  0)  00  TO  7 

IXI •XJI /  i/t |xi«7j) 

r*PCC-IVUXMZj*Zl|XJ*YJ»/i2MX»*ZJJ 
RM05RC -SORT  l  XSPEC  •  X8PCC  ♦  YSPEC  •  VSPEC  ♦  SNT  AC  T  •  SNF  AC  T  > 

ZKRW-ZT AC  T -RMOSPC  •  AL 00 1 RHOSPC  /  SNT  AC  T  i 


C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


•5 

M 

•7 

M 

•• 

70 

7| 

7? 

73 

7H 

75 

76 

77 
76 
79 
•0 
•  I 
0* 
93 
0** 

95 

96 

97 


09 

90 

91 
9? 
93 
9* 

95 

96 

97 
99 
99 

100 
101 
l  OB 
103 
10H 

105 

106 
107 

toe 

I  C9 
I  I  0 
I  I  I 
I  I  2 
I  13 
I  1** 

1  15 
1 16 
117 
I  10 
119 
\bo 

t?i 

i?? 

I?3 

I?** 

I?5 

l?6 

1*7 

l?9 
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7 


9 


C 

C 

c 

c 


c 

c 

c 


1 1 
i? 
13 

IA 

15 

16 

17 

16 


C 

C 

C 

19 

?o 


?R  A  T I  •  <  2ftA  T 1 S  •  2SCRN  >  /  <  c  T  AO  •  2*  A  T|  s  «  ZSCftN  j 

CONTINUE 

IF  (RHAO.GT  |  .C-6l  GO  TO  • 

PX-O. 

PV«0. 

CTH-1  . 

ZRSIN-CMPLXI 1 . ,0. » 

00  TO  9 
PX-VI J/RNAG 
P7*-X I J/RNAG 
CTH-21 J/SQPT (AS) 

ZRSIN-^CSORT I  |  -ZAATI »?RAT I* 1 1  -CTH'CTM) I 
REF$-lCTH-ZRATl»ZRSIN)/lCTN^ZRAT|  'ZRSlNi 
REFP$.-c2RAT|*CTH-ZRSIN)/(ZRaT|«CTH*ZRS;n> 

AC  F  PS -AC  FAS' ACTS 

IF  IPGM>  •  I.  A  PERFECT  GROUND  IS  MOOClEO  Or  FIXING  TMC  REFLECTION 
COCFF 1C  I  ENTS  AS  FOLLOWS 

IF  (IPONOCO  0)  00  TO  10 
ZRSIN-CMPLXI I . .0. i 
REFS-CMPL  X ( 1,0.1 
RCFPS-C^LXIO  .0.1 
CONTINUE 

INTEGRATE  THE  C-FIELO  AT  08S  POINT  DUE  TO  THE  SOURCE  SEGMENT 

CALL  INTG  I 9 , S , RH . ZP . 0 I , QP? .ETR.ETI.OIL.OIK.IJ, IP) 

I  J-l 

IF  IIP  1C. gi  GO  TO  I? 

00  1 1  IC-I .3 

ETRI ICl-SION«ETA( f C I 

etiiic»-sion«eth  ic) 

IF  IJCOII  IJ.I5.IA 

CALL  JNELS  ICTRI  |  I  ,£T|  1 1 1  ,NC  IX.  JlX.NCOX.  JOX,  |  ) 

GO  TO  15 

CNI | . JCO I  J-CMI  |  .  JCOl  I ♦CTRl I  I *F J*E Till) 

CNI  I  . Jl-CHI  I  ,  J)  ♦€  TA<2)  *FJ*E  T  1  (?) 

IF  <JCO?>  16.19.17 

CALL  JTCLS  IETRIJI.ETII1I.NC02.J02.NCIZ.  JIZ.Ii 
GO  TO  19 

CHI  I  .JCO?)  -CHI  |  .JCO?)  ♦CTRl  3)  ♦F  J*ET  I  i  3) 

CONTINUE 

2RAT|*2RAT|S 

RETURN 


FORMAT  (15. CIO. 5> 

FORHAT  I///27H  A  RAO I  At  GROUND  SCREEN  OF  .I5.3JN  RAOIALS  Ml Tm  A 
IRE  RAOIUS  OF  .El?  A.?|M  WAVELENGTH  HAS  USEO  m  i 
END 


HI 


C  129 

C  I  JO 
C  IJI 
C  13? 
C  (33 
C  IJf 
C  135 
C  136 
C  137 
C  139 
C  139 
C  mo 
C  mi 
c  m? 
c  ms 
c  ms 
c  m5 
c  m6 
c  mi 
c  me 
c  m9 
c  150 
c  151 
C  15? 

C  151 
C  !5s 
C  155 
C  156 

C  157 
C  156 
C  159 
C  160 
C  161 
C  16? 

C  163 
C  16s 
C  165 
C  166 
C  167 
C  168 
C  169 
C  170 
C  I  7  | 

C  17? 

C  173 
C  1 7s 
C  175 
C  |  76 
C  |T7 
C  178 
C  179 
C  100- 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

I 

c 


c 

c 

c 


c 

c 

c 

2 

3 

4 


tumour  tic  oataon 

COMMON  4\t  N.NP.Xf  IOOI  ,VI  IOO)  .2f  1001  ,St  ( I0QI  ,01 1 IOOI  .ALPtlOOl  KTl 
1 1001 . ICON l < 1 00) . IC0N»< 100) , COL AH, NX 
FAC TON -I . /COL AH 
I SCO* I 

WAD  IN  2  OATA  CANOS  FON  EACH  LINI  ClCHCNT  USCO 
TO  MODEL  THE  ANTCW4A  THE  FIRST  CANO  CONTAINS  THE  ENO  NO  I  NT 
COONOINATES  1  IN  ICTINSI  ANO  THE  INTENCONNECT I  ON  OATA  FON  THE  LINE 
E«t.  THE  SCCONO  CANO  SNECIFIES  T*  NUHOEN  OF  SEOMENTS  TO  USE  TO 
MODEL  THE  LINE  CLEMENT.  TIC  WINE  NAOIUS  USED  FON  THE  ELEMENT  ANO  I 
OESINEO  YOU  CAN  SPECIFY  THAT  A  CATENARY  OE  HOOELCO  OY  OlVINQ  THE 
MINE  UEIQHT/MCTCN  AM)  THE  MINE  TENSION  .  IF  AN  (NCNCASlNG  LENGTH 
SCOICMT  LINE  IS  OESINEO.  SPECIFY  ThC  LENOTh  EXPANSION  FACTON  TAU. 

MNI TE  (61. 41 

OATA  OCNENATON  INPUTS: 

XI.YI.2l  A*>  X2.V2.22  ANC  THE  C  ANTES  I  AN  COONOINATES  OF  THE  TWO 
END  POINTS  OF  Tic  LINE  CLEMENT 

NCONl  •  END  CONNECT  ION  VALUE  OF  THE  NEGATIVE  ENO  OF  THE  LINE  l  i  ) 
NC0N2  ■  EK>  COMCCT ION  VALUE  OF  THE  POSITIVE  ENO  OF  THE  LINE  (2) 
H I  HE RAO  •  MINE  NAOIUS  IN  HE  TENS 

MT  •  MINE  ME  I  OH  T  IN  POUNDS  PEP  HE  TCP- - -NCCOCO  ONLY  FOR  CATENANY 

TENS  -  MINE  TENSION  IN  POUNDS- - -SC T-0  IF  NO  CATENANY 

TAU  •  SCGACNT  LENGTH  EXPANSION  FACTON- - -SC T*0 .  IF  EQUAL  LtM  SEGS 

NEAO  (60.21  XI  ,Y|  .21  .NCONl  .JC2.Y2.22.NC0N2 
NEAD  (60.31  N5E0S.MINENA0.MT  .  TENS. TAU 

miTE  (61. SI  XI  ,Y|  .21  .NCONl  .X2.Y2.22.NCON2 
MNITE  (61.31  NSEGS.MINENAO.MT  .  TENS.  TAU 

CONVENT  THE  INPUT  UNITS  IN  HETCNS  TO  MAVCLENGTMS  FON  MAAP 

XI  *X|  ’FACTOR 
Y|*V|’FACIOR 
21*21 ’FACTOR 
X2-X2’F AC TON 
Y2-Y2’FACT0N 
22 -22 ’Factor 

M I NCNAO-H  |  NENAO’F  AC  TON 
MIC OS* I A#S ( NSC OS  I 

CALL  L  IIC  (  ISCO.MSEGS.TAU.MTiTCNS,W]RCRAO.*l  ,Y|  ,21  .x2.Y2.22i 
I CON I ( I SCG> -NCONl 
ISCG*  ISEO’MSCOS 
I  COM2 1 ISCG-I I-NC0N2 
N* ISCG- I 

IF  (MSECS. LT.O)  RETURN 
GO  TO  1 


FOMNAT  IJFI0.5.I5.3FI0  S.I5I 
FORMAT  US.4FlO.Sl 

FORMAT  I//.33HI  DATA  GENERATOR  IITUT  DATA  CANOS.// I 

FONMAT  ( IX.3FI0.4, IS.3FI0.4. ISl 

END 


0  I 
0  2 
0  3 

0  4 

D  S 

0  6 

0  7 

0  • 
0  • 

0  10 
0  I  I 
0  12 
0  IS 
0  14 

0  15 

0  16 
0  17 

0  16 
0  19 

0  20 
0  21 
0  22 
0  23 
0  24 

0  25 
0  26 
0  27 

0  20 
0  29 
0  10 
0  31 

0  32 

0  33 

0  34 

0  35 

D  36 
D  37 
0  30 

0  39 

0  40 

0  4  | 

D  42 
D  43 
0  44 

D  45 
0  46 

D  47 
0  40 

D  49 
0  50 
0  51 
D  52 
D  51 
0  54 

0  55 
0  56 
0  57 

D  50 
0  59- 


S 
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1LMR0UT INC  trio  (■.S.RH.ZP.  |  J.EZRS.EZ IS, ERRS  CRis  rzRc  r*ir - r 

IRIC.EZRK.CZIK.CRRK.CRIKi  *  *  IS.CZRC.CZIC.ERRC.t 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


s«outinc  crto  confutes  TMC  axial  ano  radial  electric  fields  Mr 

TO  THE  SOLftCE  SEGMENT  at  A  SFECIFIEO  OBSERVATION  FOINT, 

INFUTS: 

•  •  S OUNCE  R  AO  I  US 
S  •  SOURCE  LENGTH 

m  a  *«*>«CULAR  0,STANCC  KTWfEN  0®S  FT  ano  SOUNCE  SEO  AXIS 

"  •  WUACC  SCO  .NO  RH  Ht.SUWO  ALONG 

SCO  AUNKR  -  SOURCE  SEG  NUNKR 

AXIAL  FIELD  OUE  TO  SIN  TERM--REAL  FART 
I  HAG  I  NARY  FART 

RAOIAL  FIELO  OUE  TO  SIN  TERM-  -REAL  PART 
IMAGINARY  FART 


EZRS 

CZIS 

ERRS 

CRIS 


EZRC 
CZ  1C 

ERRC 

ERIC 

EZRK 
EZ  IX 


TO  COS  TERM- -REAL  PART 


aj:ial  FIELO  OUE 
imaginary  part 
RAOIAL  FIELD  OC€  TO  COS  TERM- -REAL  PART 
IMAGINARY  PART 


ERIK 


axial  FIELO  OUE  TO  CONSTANT  TERM  -REAL  PART 
IMAGINARY  PART 

RAOIAL  FIELO  DUE  TO  CONSTANT  TERM-  REAL  PART 
IMAGINARY  PART 


COMMON  / TN| /  ZPK , RKB? . I JX 

OATA  ZZ. TP. TP?/, 8#  363635.6 Z83I8S30B .59  i*70n,76h/ 
I JX- | J 

Rhc-rm*  tf 
ZFX-ZP*  TP 
■(-••TF 

mBe -RNK  *RHK  *0K  •  BK 
RKR-SORTIRKB?' 

C  0 1 MC  * RHK / RKB 
SKT-  TP*S*0 . 5 
ZOZ-ZPK-SKT 
ZDI-ZFK-SMT 
RZKS • RKB? • ZO? • ZO? 

RZK-SORTlR?KS» 

RlKS-RKB?»ZOl •ZDI 
RlK*SORT,R,KS» 

SR?-S I N I R?K » / R?K • zz 

CR?-COS(R?K»/R?K«ZZ 

SRI -SINIRIK ) /RIX'ZZ 

CRl ■ COSIR  IK > /RJK*ZZ 

SR?R-SR?/R?K 

SR?RR-SR?/R?KS 

CRZR-CR?/R?k 

cr?rr>cr?/r?ks 

srir-sri/rik 

SRIRR-SRI/RIKS 
CRlR-CRl /RIK 
CRIRR-CR I /R | KS 
CST-COSlSKT, 

sst-siniskt» 

T I ■ i CR?R - SR?RR > • ZO? 

TZ-ICRIR-SRIRRMZOI 
T  J- 1  SR?R «CR?RF  i  •  ZD? 

T*MISR|R*CR|RRMZDI 


E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

£ 

E 

E 

E 

E 

£ 

E 

E 

E 

E 

E 

E 

E 

t 

E 


• 

9 
10 
1 1 
1? 
IS 
is 

15 

16 
17 
IB 
19 
?0 
Zl 
?? 
?3 
Z** 

zs 

Z6 

Z7 

zb 

Z9 

30 

SI 

JZ 

S3 

3*4 

35 

36 

37 
36 
39 
*•0 
*♦  I 
4? 

*♦  3 


E 

E 

E 

E 

e 

E 

E 

E 

E 

E 

E 

€ 

E 

C 

C 

e 

t 

c 

E 

E 


*6 

*♦7 

*0 

*«9 

50 

51 

sz 

S3 

5* 

55 

56 

57 
50 

59 

60 
61 
6Z 
63 
6* 
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c 

c 

c 

c 


T l*»f I »*ST 

tjs-tj.sst 

TSS.-TS«SST 

EZRS>ISftt-SRI  l  »CST«T  IS-TK 
EZIS-ICM-CRI  MCST-TJS.TsS 

|fi«w.-..si».zi»-s»i.«)ii.csr.,w*.s»n.ssT.TI$.*M-TM*20ii/m(..eo 

«- 1  •zoiccst.  ,c«.cm  I  •ssr-ris.zM.ms.zoi  i  /Mtt.co 

TIS.TCCST 
TZS«T*"CS » 

TK-TJ.CST 

TSS.TH.CST 

CZNC.I-ISMf.SMl  MSST.TIS-TZSl 

czic.i-tcw.cmi  i.ssr-ris.rssi 

(CSJje.-,.,W.ZM.S.,.Z0".SST..S-Z-S.".cST.T,S.ZM-TZS.ZOn^..c 

^WK.-i-.eM.zM.em.zon.ssT.TCM-CTMi.esT-Tzs.zoz.Tss.zon/RKs.c 

ERMCRKa*  ICRZR-SMRR-CRIA.SAIRRi  .COINC 
CNIK.-Mcs*  ISRZR.CRZRR-SRI  A-CA I RR ]  » C  o  I  sc 

***  ’**  **'*»•  ^ICLO  (XX  TO  THE  CONSTANT  CURRENT  TERN  NUST  BE 
INTEGRATED  NUTCRICALLT 

CALI  INTX  l-SKT.SKT.NKK.ZRK.SX.IJ.CINT.SINT. 

tW«-Z7»SINT*Tl-TJ 

tllK— 2Z*CIMT-TJ«TH 

return 

END 


C  S5 
C  II 

C  •? 
C  •• 
E  II 

C  70 
E  7| 
E  7? 
E  7  J 
E  7*« 
E  75 
E  76 
E  77 
E  76 
£  79 

E  60 
E  61 
E  •? 

E  03 
E  0* 

E  05 
E  06 
E  07 
E  00 
E  09 
C  90 
E  91 
E  9? 

E  93 
C  9*» 

C  95- 


85 


C 

C 

c 

c 

c 

c 


c 

c 

c 


I 


c 

c 

c 


2 

3 

H 

c 

c 

c 


5 

6 


C 

C 

C 


9 


suanour inc  facto*  (n.a.p.noihi 


TiannijT inc  to  facto*  a  matrix  into  a  unit  lok*  triangular  matrix 

*****  T*|  AHOULA*  NAT* IX  USING  T*  GAUSS -OOOU  T  TLC  ALGO*  I  THH  **CSCN 

*aocs  HM-NIG  or  A.  *alston--a  ri*fT  cou*sc  in  nuniaicai  analysis. 

•CLOH  *crc*  TO  COMMENTS  IN  *ALSTONS  TIXT. 


COWLCX  A  ,0,0c TC* 

I  NT  tOC*  R.P.RNI.RPI.PJ.PR 
OITCNSION  AINOIN.NOIN)  .  PtNOlMJ 
COWON  /SC*ATH/  OUOOl 
I FLO-O 
00  9  *•  I  .N 


STEP  I 


00  I  K-l ,N 
0(K>-A(K,R) 
CONTINUC 

STEPS  ?  AND  3 


*H|  •*- 1 

ir  <*H|  LT.  I  I  GO  TO  H 
00  3  J-l  ,*H1 
Pj-Pl Jl 
A(J.R)-OfPj) 

OlPJi-OI J» 

JPI»J*I 

00  2  I-Jpl  , N 

0< I » *0< I »-At 1 , J  > • A l j , * ) 

CONTINUC 

CONTINUC 

CONTINUC 

STEP  H 

ONAX-Ol* I *CONjG<D(Rl I 

*(*)-* 

**!•*♦ I 

ir  IRPI .OT  Nl  GO  TO  6 

00  5  l-RPI .N 

Cl MAG-0 I  1 1  •CONJGlOl  1  > ) 

If  (ELNAG.LT  ONAX I  GO  TO  5 
ONAX-ELHAG 
*1*1-1 
CONTINUE 
CONTINUC 

IF  (ONAX.LT . I .C- 101  IFLG-I 

P*-PI*I 

AI*,*)«Ol**l 

0(P*i-0(*» 

STEP  9 


r 

r 

r 

r 

r 

r 

r 

r 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

r 


t 

i 
3 
H 
9 
0 
7 
9 
9 
10 
I  1 
1  g 
13 
I* 
19 
16 
17 
19 

19 

20 
21 
gg 
?3 

g H 

25 
?6 
g  7 
g  8 
*9 

30 

31 

32 

33 
3* 

35 

36 

37 
39 
39 
HO 
H  I 
H2 
H3 
HH 
H5 
H6 
H7 
H0 
H9 

50 

51 

52 

53 
5h 


IF  (NPl  OT.Ni  GO  TO  9 

00  7  |*RP| , n 

All .*)«0( I  I / A  I* ,*l 

CONTINUC 

CONTINUE 

IF  (  IFLG.CO  0»  GO  TO  9 
H*ITC  191 .101  * , ONAX 
IFLO-O 
CONTINUC 


F  55 
F  56 
F  57 
F  58 
f  59 
F  60 
f  61 
f  62 
f  63 
F  6H 
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c 

c 

c 

I* 


Me TURN 

torn*!  <7H  RIVOTI.ll.IMI 
(Ml 


r  •• 
r  M 

t  •? 

r  m 

f  M 

r  to- 


« 
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SINROUTINC  FACTORS  IN.NOP.  A.P.HtOW.NCOL  >  0  I 

c  0  2 

C  SUWOUTIW  FACTORS  IS  USCO  TO  SET-UP  THE  FACTORIZAT  ION  OF  THE  0  3 

C  STMCTRIC  PART  Or  THE  IMPEDANCE  MATRIX  f,  H 

C  0  9 

COW.EX  A. 0. DETER. S  0  6 

INTEGER  P  0  7 

COT  WON  /  SMAT  /  SI  12. 121  o  , 

DIMENSION  AIMKM.NCOLI.  PlNCOLI  G  g 

COtWON  /SCRATH/  01 1001  C  10 

IF  INOP.EO.  I  I  00  TO  •  on 

PHAZ  <6. 213 1 193072/ MOP  G  ,? 

00  I  I  *2. NOP  0  1 3 

00  I  J-I.NOP  0  14 

ARG<PMAZ<<  l-l  l<<J-l  I  0  ,5 

XXX<C0S<AR0<  C  16 

TTT<SINIAROI  0  n 

S<  I  ,  J> "CMPLX I  XXX . TYYI  G  ig 

1  SIJ.IXSII.JI  C  ig 

00  9  l<l  ,N  C  20 

00  9  J<I.N  0  g, 

00  2  K< I  .NOP  G  gg 

KA<J<<K<II<N  G  gj 

OIKXAII.KAI  g  glt 

2  CONTINUE  G  „ 

0ETER<O<I<  G  e6 

00  3  KK-2.N0P  G  n 

3  0ETER<OETER<O<KKI  G  ?B 

AII.JI-OETER  G  gg 

00  9  K.2.N0P  G  30 

KA< J< IK- I  I <N  G  3 | 

0CTER<0<I<  G 

00  4  KK-2.N0P  G  jj 

4  OCTER<OCTER<OIKKI<S<K.KKI  g  31, 

9  AII.KAI-OCTCR  0  35 

6  00  7  KK-I.NOP  G  36 

KA<  IKK-  I  I  <N<  I  G  j, 

CALL  FACTOR  <N.A<  I  .KAI  .PIKAI  .NROHI  G  39 

7  CONTINUE  G  39 

Retirtn  g  4G 

G  4 1  - 
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C 

C 

c 

c 


2 


suwoun*  fact pcs  in.nop ,h. a.p.npow.ncol ,mooe i 


1UWOUT INC  rACTPCS  TAKES  CAKE  Of  FaCTOPI ZAT 
MITH  SEOMENTS  ON  AXIS  Of  POTATION 


ION  Of  HATftICICS 


COMPLEX  A, SUN 
INTEHCP  P 

DIMENSION  A I  WON.  MCOL  I  .  P(NCOLI 

NA-N«MOP 

NAP-MAM 

NT-NA*H 

f NOP -NOP 

00  TO  I  !.*,«•».  NODE 

CALL  FAC  TOPS  (N.NOP.  A.P.NPON.NCOL  ) 

If  (N.EQ.O)  00  TO  7 

00  3  l-t.N 


3  CALL  SOLVE  IN. A.P, A( | .NA| » .NPOWI 

•*  00  ft  I'l.M 

IN0> I *N 
00  •  J-l ,N 

jnd-j«na 
SUN-CITLXIO  .0  > 

00  S  K-I.N 

5  SUH-SiP1*A(  IND. K I *A (K ,  JNO I 
•  At  INO.^Ol -A(  IND.  JND> -SUH*FNOP 

CALL  fACTOP  IN.A(N«|  .NAP)  .PtNAP)  .NROWl 
7  CONTINUE 

petupn 

END 


H  | 
H  i 
H  3 
H  H 
H  3 
M  6 
M  7 
H  • 
H  f 
H  10 
H  |  | 
H  12 
H  13 
H  m 
H  IS 
H  16 
H  17 
H  IS 
H  19 
H  20 
M  21 
N  22 
H  23 

H  2H 

H  23 

H  26 
M  27 
M  20 
H  29 
H  30- 
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SOMUTDC  Of  <1K.C0.SII  I  | 

c  I  * 

C  SUGROUTltt  Of  PROVIOES  r«  fUNCT  ION  TO  K  NUMERICALLY  INTEGRATED  t  1 

C  GY  INTX.  THE  fORN  It:  EXPM  »K«Rl /MR.  THE  REAL  PART  IS  RETURNED  I  H 

C  THROUGH  CO  AND  THE  IMAGINARY  PART  Of  THE  INTCORANO  IS  SI  .  IS 

C  I  G 

COMMON  / TH I /  ZPK.RKGC.IJ  |  7 

1  • 

I  RK*SORTIRKG**WEOKI  |  9 

SI*SINIRKI/RK  |  jo 

If  < I J I  1.2.1  III 

I  CO-COSIRKI/RK  |  |9 

RETURN  I  |  ] 

•  c  1  m 

c  AMEN  l-J.  SUGTRACT  OUT  A  SINGULAR  ll/RK  POINT--IT  HILL  BC  I  IS 

C  INCLUDED  AT  A  LATER  POINT  IN  SUBROUTINE  INTX  !  ,G 

*  I  IT 

l  COMCOSIRKI-1 . 1/PK  1  ,9 

RETURN  ,  ,9 

t*  I  ?0- 
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**AOUTI*  ON  (C2H.t2KUW.CHn 
C 

c  ****** >Wt  ON  HOOiritt  TMt  HCHrtCT  IMUOf  MELOS  §V  T* 

C  AHHROMHIATC  REFLECTION  COEFFICIENTS  EVALUATED  AT  TMt  MCCULAK 

C  HO I NTS. 

C 

coy  CK  C2.CH.CHK. CHY . CH2 . CHIC . CHY  , RfF  S . RtF HS 

COMMON  /Htrt/  HHOX.HHOY  .HH02  .  CAHJ,$ABJ,SALPH.FX,PY,HCFS  .HCfPS 

C2-CMHl.XlC2H.C2n 

ch-cmhlx<chh.chii 

CRX-NH0X«ER*CA6J'E2 

C HY -HHOY *CH*SAHJ • C 2 

CR2-HH02*CR«SALFR»C2 
CHY-HX  *CRX -HY  -cry 
CHX-HX«CHY 
chy-hy»chy 

CRX-NEFS'CRX«RCFFS*ERX 

CHY-HCr$«CHY»HCrHS*CHY 

CR2-HCfS*CR2 

C  2-CHX  *c  A«J*CHY  *SAHJ  ♦  CH2  •  SAL  HH 

EH-EHX*HM0X*CHY»HN0Y*CH2»HM02 

C2H-HCAUC2) 

C2I-AINAOIC2) 

CRH-REAL  <  EH  l 
CRI-AIMAOlCRl 

hctuhn 

END 


J  I 

j  i 

J  3 
J  H 
J  5 
J  • 

J  7 
J  9 

J  9 

J  10 
J  I  I 
J  12 
J  13 
J  IN 
J  15 
J  16 
J  17 
J  16 
J  19 
J  20 
J  21 
J  22 
J  23 
J  2N 
J  25 
J  26 
J  27- 
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SUBROUTINE  INTO  (O.S.RH.ZP.QI  .QR2.ETR  ,ET  I  .OIL  .OIK  ,  I J.  IPl  K  I 

C  K  2 

C  SUBROUT  INI  INTO  IS  USED  IN  CONFUTING  THE  CNTRIE5  EON  THE  CM  MATRIX  K  3 

C  IT  CONFUTES  THE  C -FIELD  AT  AN  OBSERVATION  SEGMENT  OUC  TO  A  UNIT  K  V 

C  CURRENT  ON  TX  SOURCE  SEGMENT.  TX  SUBROUT  IX  RETURNS  THE  K  5 

C  INTERPOLATED  TANGENTIAL  FICLOS  FOR  TX  SEGMENTS  AS  FOLLOWS:  K  0 

C  ETRMI  AND  ETMII  AX  TX  FIELOS  FOR  SEGXNTS  CONXCTED  TO  TX  K  7 

C  XOATIVE  END  OF  TX  SOURCE  SEOXNT .  k  • 

C  CTR<2l  AND  E  T 1 1 2 1  AX  TX  FIELDS  FOR  TX  OBSERVATION  POINT  SEG  K  9 

C  CTRtJl  AND  ET 1 4  3t  AX  TX  FICLOS  FOR  SEGXNTS  CONXCTED  TO  TX  K  10 

C  POSITIVE  END  OF  TX  SOURCE  SEOXNT  .  X  |  | 

C  k  1 2 

OIXNSION  EIRISI.  ETIUI  k  13 

OATA  TP/6. 203195309/  K  IV 

c  K  is 

C  COXUTE  TX  E-FIELDS  XFEXNCEO  TO  TX  SOURCE  SEGXNT.  K  16 

C  K  17 

CALL  CFLO  (9. S.RW.ZP. IJ.EZRS.EZIS. ERRS. CRIS.CZRC  .CZIC  ,ERRC . ERIC, EZ  K  10 

IRK. E2IK.ERRK. ERIK)  k  19 

IF  C  IP.X  .2»  GO  TO  I  K  20 

C  K  21 

C  IF  COXUTATION  IS  PCRFORXO  FOR  TX  I N 1  AGE  FIELDS.  MODIFY  TX  K  22 

C  XXCCT  GROUND  IMIACC  FIELDS  BY  TX  APPROPRIATE  REFLECTION  COEFF  K  23 

C  K  24 

CALL  ON  (EZRS.EZIS.ERRS.CRIS)  K  25 

CALL  ON  <EZRC.EZIC.ERRC.ERIO  K  26 

CALL  ON  (CZRK.CZIK.CRRK.ERIK)  K  27 

C  K  28 

C  TAKE  A  00 T  PROOUCT  OF  TX  SOURCE  FIELOS  TO  COMPUTE  TX  TANGENTAL  K  29 

C  FIELOS  AT  TX  OBSERVATION  POINT  K  30 

C  K  31 

I  ETRS-EZRS*0I*ERRS*0P2  K  32 

ET|S-E/IS*0MERIS*0P2  K  33 

CTRC-CZRC»Ql«£RRC*0P2  k  34 

CT ICaCZIC*QI«CRIC*QP2  K  35 

ETRK«EZRK#OI  ♦CRRK»QP2  K  36 

ETIK«CZIK*QI»CRIK*0P?  k  37 

CL»TP«OIL  K  38 

CK«TP*OIK  "  k  39 

SINL»SIN<CL>  K  40 

COSL *COS (CL  >  K  VI 

SINK-SINICKI  k  ««2 

COSK*COS<CKl  K  43 

SILK*SIN(CL«CK>  K  44 

CONS»SINL  ♦SINK -SILK  K  45 

CTR(  I  »»lSlli<#ETRK*  (COSK-  I  .  )*ETRS-SINK»ETRC  ■  'CONS  K  46 

ETUI  1-ISINK»CT|KMC0SK-|  .  1»ET|S-SINK*ET  1C  (/CONS  K  47 

ETRI2)  ■  l  -SlLK*£TRK»  ICOSL  -COSK  M£TRSMSINL*SINK>*ETRC>  /  CONS  K  49 

CT|  12) • < -S ILK*C I  I K  •  I  COSL  -COSK  1«£TI5*<S1NL*SINKI»ETJCI  /  CONS  K  49 

£TRI3I»(SIX*ETRKMI  -COSLI*ETRS-SlX«CrRCwCONS  K  50 

ET|  (3>-ISIX‘ETIK*M  .-C0SLM£TIS-SIX*ETICI/C0N5  k  5l 

X  TURN  K  52 

EX)  k  53- 
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MHOUTlNi  INTX  (EL1.CL2.RKB2.2PK.B.  I J. SG.< . SOI  » 

c 

C  INTX  IS  AM  AOAPTIVE  RHOMBERC  INTEGRA T  ION  SCHCMC 
C 

c 

c  RCrERCKE:  JOURNAL  Of  COT^UTAT  IONAL  PHYSICS  5.  PP  ?65-?7g 
C  I §70--  A  VARIABLE  INTER* AL  WIOTH  QUADRATURE  TECHNIQUE  VASCO  ON 

C  RMOHNERG'S  METHOD  .  E.  K.  MILLER.  CT  AL 

C 

DATA  NX.»*.NTS.RX/|  .655J6.H,  I  C-H/ 

2-EL  I 
ZE-EL2 

ir  (  |j  EC  01  ZC-0 
S-2E-2 
EP- I0*NH 
EP-S/EP 
ZCND-ZC-CP 
5OR-0  0 
SOI -00 
NS-NX 
NT-0 
C 

C  Of  is  THE  FUNCTION  to  BE  NUMERICALLY  INTEGRATED 

c 

CALL  or  CZ.OIR.GU) 

I  DZ-S/MS 

020T -02*0 . 5 
ZP-Z-OZ 

IF  IZP-ZEl  3.3.? 

?  OZ-ZE-Z 

IF  IABStDZ>-£P»  17.17.3 
3  020T-02/? 

ZP-Z* 020T 

CALL  OF  I2P.G3R.G3II 
ZP-Z-OZ 

CALL  GT  c ZP. GSR, 05 I ) 

•*  T00R- IGIR«G5R)  *020T 

TOOI- (01 1*051 )*020T 
TO IR- ( TOOR*OZ*GJR> *0.5 
TO I l-< TOOI *02*031 1*0.5 
TIOR-(H.O«TOIR-TOOR|/3.0 
T  IOI-IH  Q*TOi  I  - TOOI  1/3  0 
TC I R- TEST ( TOIR, T IOR> 

TE I  I • TEST l TO 1 1 , T 1 0 1  I 
ir  (TEII-RXI  5.5.6 

5  ir  (TE1R-RXI  B.B.6 

6  ZP-Z*DZ*0  ?5 

CALL  or  I ZP.G2R.02I  I 

ZP-Z*DZ*0 . 75 

CALL  GT  I2P.0HR.GNII 

T02R- ( TO  I R*020T • ( 0?R*0HR l l • 0 . 5 

T02I ■<  TOI I *OZOT • 1021 *0H 1 1 1'O.S 

T||R-(**0»T02R-T0IRM3.0 

Til l-IH.0*T02l-T0lll/3.0 

T?OR-( IB.O*TI IR-TI0RI/I5.0 

T20I • ( li. 0*T I  I I-TIOI 1/15.0 

Tf  2R- TEST  I T 1 1 R , T20R 1 

TE2I -TEST (Till, T20I ) 

ir  ITE2I-RXI  7.7, IN 

7  ir  (TE2R-RXI  9.9. IN 
B  SOR-SOR-TIOR 

SGI "SOI *T 10 I 

NT "NT •? 

00  TO  10 


L  I 
L  2 
L  1 

L  H 
L  5 
L  6 

L  7 
L  B 

L  9 

L  10 
L  ]  1 
L  I? 
L  13 
l  m 
L  15 
L  16 
L  17 
L  18 
L  19 
L  20 
L  21 
L  2? 
L  23 

L  ?H 

L  25 
L  26 
L  27 
L  28 
L  29 
L  30 
L  31 
L  3? 

L  33 
l  Jh 
L  35 
L  36 
L  37 
L  38 
L  39 
L  HO 
L  HI 
L  H2 
L  H3 
L  HH 
L  H’j 
L  H6 
L  *7 
L  HB 
L  H9 
L  50 
L  51 
L  52 
L  53 
L  5H 
L  55 
L  56 
L  57 
L  58 
L  59 
L  60 
L  61 
L  6? 

L  63 
L  6H 


SON-SON* T20N 

L 

•5 

SOI -SOI *TfO| 

L 

SO 

NT«NT*I 

L 

67 

Z-Z*OZ 

L 

Si 

If  (Z-ZENDl  11.17.17 

L 

69 

GIN-09N 

L 

70 

011 •051 

l 

71 

IF  CNT-HTS*  1.12. 12 

L 

72 

If  ( NS -NX  1  l.l.ll 

L 

73 

NS -NS/ 2 

L 

7** 

NT-1 

L 

75 

00  TO  1 

L 

76 

NT-0 

L 

77 

IF  (NS-NNI  IS. 15. 15 

L 

78 

MRl  TC  (SI. 20)  Z 

L 

79 

00  TO  t 

L 

80 

NS-NS*2 

L 

81 

OZ-S/NS 

L 

82 

OZOT-OZ+O.S 

L 

83 

05N-03N 

L 

0i* 

051-031 

L 

85 

0JN-02N 

L 

86 

031-021 

L 

87 

00  TO  H 

l 

88 

CONTINUE 

l 

t 

89 

90 

IF  l-J  AN  ANALYTIC  DIFFERENCE  T E Nn  In  TMC  INTEGRANO 

l 

91 

IS  NON  INCLUOCO  IN  T)C  CONTRIBUTION 

L 

L 

92 

9T 

IF  (IJ)  19. IS. IS 

L 

9H 

SON-2.  •  (SON*ALOG(  c SORT (8*B*S*S)  -S >  / B >  i 

L 

95 

SOI -2. *S0l 

L 

96 

CONTINUE 

L 

97 

RETURN 

t 

98 

L 

L 

99 

too 

, 

L 

101 

FORNAT  I2NH  STEP  SIZE  UHITEO  AT  Z-FI0.5) 

L 

102 

END 

L 

103- 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


3 


* 


Sm«OU?|*  J*L$  CETR.ETI  .NCP.  JP.NCM, JM. I  » 


THE  lJ{JFnN0  <*  THt  COMPLEX  IMPEOANCE  MATRIX- -CM. 

T>€  SUBROUTINE  IS  CALLEO  OH.Y  UHEN  AN  ICON  VALUE  IS  NEGAT I  v£- - 
INDICATING  CIIHIR  A  MU.TIPLE  JUNCTION  OR  A  CHANGE  IN  REF  POLARITY 


l**UTS: 

I  ■  0-SEPVATION  POINT  SEOMENT 

tin  •  tangential  electric  ntio  ircali  at  segment  i 

tu  •  TANOtNTIAL  ELECTRIC  EIELO  (INAGI  »T  SEGMENT  | 

•CP  .  WMC*  OF  SEOfCNTS  COTMEC TEO  TO  POSITIVE  ENO  or  jTm  SEG 
*  I  NW<,f’,S  C0W«CTE0  TO  POS  ENO  OE  JT„  SEO 

•cm  •  member  or  seomnts  cowccteo  to  negative  eno  or  jtm  seg 
■»  •  ARRAY  or  scgtcnt  tutbers  CONNECTED  to  NEC  ENO  or  JTM  seg 


INTEGER  P 

COTTLE*  CM.rj.ClNC 

C0m0N  '?/  CMC?a.  100)  .E  INC  MOO i  .Pi  100) 
01  ME  NS  I  ON  JPCMJ.  JN(^, 

fj*c»lxco.  .  I  .  » 

IF  CNCP.LT. I »  GO  TO  ? 

00  I  J.| . NCP 
JPJ-JP! Jl 

CMC | . JPJI -CMC | . jpji ♦ETR«r J*ET  I 

CONTINUE 

IF  CNCN.L7.  |  )  GO  TO  H 
00  3  J- I . NCM 
JMJ-JMIJI 

CMC | .JMJI-CMC | . JMJI-ETR-rj»ET| 

CONTINUE 

RETURN 

END 


M  | 
M  ? 
M  3 
H  H 
M  S 
M  6 
M  7 
M  • 
«  9 

M  10 

M  |  | 

M  I  ? 
M  13 
m  m 
m  is 

M  16 
H  17 
M  IB 
M  19 
M  ?0 
M  ?| 

M  ?? 

M  S3 
M  ?V 
M  S5 
M  ?6 
M  SI 
M  SB 
M  ?9 
M  30 
M  J| 

M  3?- 
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SUMOUTItC  JUAC  <  J.JAAO.NCI  .NSEOI  .NC2.NSEG2.DI  N  I 

C  N  2 

C  SUBROUTINE  MX  1$  USED  TO  CA€CK  SEOACNT  (NOS  FOR  MULTIPLE  N  3 

C  vWCTIONS.  THIS  SUBR  IS  OAR.Y  CALLED  IT  AN  ICON  VALUE  IS  NEGATIVE,  N  V 

C  IWUTS:  N  S 

C  J  SEGMENT  NUMBER  TO  BE  TCSTEO  N  g 

C  JNO  •  ICON  VALUE  Of  J-TH  SEGMENT  TO  BE  CHECKED  N  7 

C  OUTPUTS:  N  g 

C  NCI  •  NUMCR  Of  SEGMENTS  IRAOSC  NEC  ENO  IS  CONNECTED  TO  JNO  N  9 

C  NC2  HUMBER  Of  SEGMENTS  ARIOSE  ROS  ENO  IS  CONNECTED  TO  JNO  N  10 

C  NSEOt  •  ARRAY  Of  SEG  NUMBERS  ARIOSE  NEG  ENO  IS  CONNECTED  TO  JNO  Nil 

C  NSC 02  •  ARRAY  or  SEG  NUMBERS  AHOSE  ROS  ENO  IS  CONNEC  ED  TO  JNO  N  12 

C  0  ■  AVG  LENGTH  Of  J-TH  SEG  ANO  AVG  Of  ALL  OTHER  CONN  SEGS  N  13 

C  N  IN 

COAWON  /  I /  N.NR.XI  1001  ,  Yl  1001  ./I  1001 .51  (  1001  . ST  I  I  00 >  .ALPI  1001  .BCT  I  N  15 

1 1 00 1  .  I  CON  111001,1  C0AI2 1  1001  .  COL  AH ,  NX  N  16 

DIMENSION  NSCGI 1251  ,  NSC 02 1 25 1  n  17 

NCI*0  N  IB 

NC2-0  N  ,9 

SNC-0.0  N  20 

c  N  21 

C  CHECK  COR  NEG  ENOS  COAMECTEO  TO  JNO  N  22 

c  N  23 

00  7  I •  I  ,N  N  2- 

ir  I ICONI I | l-JNOI  2.1.2  N  25 

1  If  I  I  .CO.  Jl  GO  TO  2  N  26 

■CI-NCI.I  n  27 

If  INCI  .01.251  GO  TO  5  l.  28 

NSCGI INC ! I •  I  N  gg 

SAC-SNC. SI  I  I  I  N  jo 

c  N  31 

C  CACCK  FOR  POS  ENOS  COARCCrEO  10  JNO  N  32 

c  N  33 

2  If  I  IC0N2I  ll-JNOl  7.3.7  N  3V 

3  If  I  I  ,EO.  Jl  GO  TO  7  N  35 

NC2-NC2M  M  36 

IF  INC2  GT  251  GO  TO  5  N  37 

NSEG2INC2I "  I  N  38 

SAC-SAC. SI  (  I  I  N  39 

7  CONTINUE  n  70 

FC-NCI.NC2  n  m 

C  N  72 

C  COMPUTE  AN  AVERAGE  SEGACNT  LENGTH  FOR  The  MULTIPLE  JUNCTION  N  73 

C  N  77 

0-ISI  I  JI.SAC/fCI/2.0  N  75 

"f'TRTN  N  76 

5  A* I  IE  161 .61  JNO  N  77 

STOP  n  78 

C  N  79 

C  N  50 

C  N  51 

6  FORMAT  17 1 H  ERROR  -  TOO  MANY  CONNECTIONS  TO  JUNC  T  I  ON  1 7 1  N  52 

«e  N  53- 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


a 

i 


SUOftOUT  I* 
COWON  /  |  / 
I  100) . ICON! 


L  l>€  <  I  .NS. TAU.MT .  TENS .  WRAO .  *  I  ,  YJ  ,f|  ,X?,  rg  .Zgi 
N.NP.XT 100)  ,Y  < 100 1  ,Z(  1001  ,Sli  100)  .BMIOO)  .ALP)  100)  BE  T  ( 
*100),  ICON* 1 100>  .COLAH.NX 


THIS  SlAftOUTINC  IS  USED  TO  CALCULATE  TMC  GEOMETRIC  COORDINATES  Of 
CACM  MAJOR  ANTCWA  ARM  TMC  OATA  GENERATED  BY  THIS  SUBROUTINE  IS 

^coordinate  or  r*  center  or  a  seo«nt  rlus  tmcTlph^  Z  kt 

^tS  *’  £ACH  P0IM  IWWCONWCTION  OAT*  IS  ALSO  OE 
EAOM  Of  1*  SEGMENTS  BY  SPtCIFYINO  THE  PROPS*  PARAMETERS  IN  THE 

CH0ICt  V  USIN°  *  UFt*t0  SEGMENT  LENGTH  HITH  » 
CATENARY  fORM  OR  A  UNCAR  fORM. 


if  tens  -o  then  oont  noocl  a  catenary 
If  l TENS  LC  l.l  TENS* I .E 100 
K|NC«Xa-X| 
y I nc • ii-y t 
ziMc-zazi 

RHO-SQRT  (  X  INC  •  a?«Y  INC  •  •?«/ 1  NC  •  •?  ) 
RMOXY-SORT  tXlNC*»?*YlNC#»?l 
KTA-AATANcH  Y|NC  ,XINC  > 

CXRSUM-0 

NEXP--I 


CALOA-ATC  SEGMENT  LENGTH  SL  0  I  f  TAPE  RE  0  S£G  IS  .SEC  SKCD»  T  a 

00  1  LS- I .NS 

EXPSUH-EXPSUMM  |  ♦TAUMMIS-I  ) 

SLO-RMO/EXPSUM 


0  1 

o  a 

0  3 

0  H 

0  5 

0  6 
0  7 

0  9 

0  9 

0  10 
0  I  I 
0  1 2 
0  I  3 
0  |4 

0  15 

0  16 
0  17 

o  ie 

0  19 

0  fO 

o  ai 
o  aa 
o  ?3 
o  <?* 
o  as 
c.  ?6 

■)  p~> 


CALC  AN  APPROX  VALUE  TOR  THE  ALPHA  ANGi  f 
MILL  BE  USED  TO  DETERMINE  THE  INCREMENTAL 


USING  ST  l INE  SEG 
*  AND  Y  STEP 


AL)  A 


ALE A»AATAN?<;iNC .RHOXY) 
CA-COSl ALFA) 
SA-SINtALFAl 
CA8-CA*C0SIBCTAI 
$AB-CA«SIN<B1TA» 


SET  IR»  SEGMENT  PARAXTERS  IF  WIRE  WEIGHT  IS  SPECIFIED.  CATENAR 
BE  CALCULATED  FOR  VERTICAL  ELEMENTS  NO  CATENARY  W|LL  BE  USED 


NCND-NS* I  -  I 

XXI-XI 

YYJ-VI 

u  i-zi 

cat-mmcolam/ <a  mens* 

DO  H  M-  I  .  NEND 
NEXP-NCXP*  | 

SL  •  SL 0 •  <  I  ♦  T  AU I  *  *NI  Xf 
SLX-SL  *CAB 
SLY-SL*SA0 


0  ?8 
0  ?9 

0  30 

0  31 

o  3a 

0  33 

0  34 

0  35 

0  36 

0  37 

0  30 

0  39 

D  *0 
0  ^  ] 
o  4a 
0  *3 

0  44 

0  *5 

0  46 

0  47 

0  4B 
0  49 

O  50 


xxa-xxi *SLX 


YVa-YYI *SL v 

XPRIME -SORT  I  (  *xa  KIi»«2mvv?  t|  i.i^i 
I F  <  ABS IALFAI  lE  I  5 »  GO  TO  a 

zza-zzi  *sl»sa 
GO  TO  j 

W-ZS-.NHOKy-APDIMEM.CAT^PftlNt.ZINC-SMOAY. 

*'r*SQMT(SLX*>?.SLY*,?P 

*LPMA« AATAN£ I  tlle-lll  I  ,«YI 

XIMI XX  I .XX?I It 

Y ini • i yy I .yy^i n 
JwhiHi./hwj. 

sumi -sort  i  xv*«a* i  ua-u i  )*«ai 


o  sa 

0  53 

'  54 

0  55 

0  56 

0  57 

0  50 

0  59 

C  60 
0  6 1 
o  6a 

0  63 

0  64 
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•  IIHI-IMAO 
ALPIH) -ALPHA 
KTim-acTA 

icons  cm  »n-i 

ICON*tni-n»i 

xxi-xx? 

YYI-YV2 
ZZlmZZZ 
H  CONTINUE 
NCIUNN 
END 


0  69 
0  66 

0  67 
0  66 

0  69 
0  70 

0  71 

0  72 

0  73 

0  7*» 

0  75- 
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**«oum»*  t*tlo  iaip.aii.bip.bii.cip.cii.zpati.ksyhpi 

S**W0I1«  NtfLO  IS  USED  TO  CALCULATE  INC  NCAA  ELECTRIC  TIELO 
*T  *  SCt£CTI0N  Of  OBSERVATION  POINTS.  THE  INPUTS  A  At  THE  INITIAL 
POINT:  XO.YO.AM)  10  AM)  THE  HNAL  POINT  .I.vTaNC  zT  N».|  M  S 
***  *N  INI£0**1-  »  TM£  TANOENTIAL  E-riELO  IS  EVALUA 

N  ™  1^“  r°r*LONO  T*  P*™  POSI  T  IONS  APE  OUEN 

IN  MTEPS  AM)  TTC  flELO  VALUES  APE  PETUPNEO  IN  VOLTS/MtTEP. 

COTWON  /I/  N.TW.XIIOOI.YIIOOI.ZIIOOi.SHIOOI.BIIIOOi.ALPiIOOi  BET  I 

1 1001.  ICONII  loot.  ICONEI  1001.  COLAM.NX  1001. BET( 

COMDEX  ZPATI.PErs.PErPS.ZPSIN 
COT P10W  /J/  CABI 1001 .SABI  1001 .SALPI 1001 

,KT'-'  »««."HOT.PHOZ. CABO. SABO. SALPR.Px.Py.RETS.RETPS 
DIMENSION  AIPIIOOI.  A I  I  I  I  00  I  ,  BIPlIOOl.  8IHI00I.  CIRIIOOi.  CllllO 

COMPLEX  rj.EZP.EBMO.EX.EV.EZ.CP.SUH.CT 
tj-cmplxig. .i.i 

P|AJ.  IHI99Z6SN 
TP-B.-PI 

ta-pi/ibo. 

TACT  OP ■ | . /COL  AH 

NEAO  IN  INITIAL  ANOTINAL  POINT  COOPO  INATtS  -  - -D I H  ARC  IN  HETERS 

BEAD  ISO. I9l  XO.YO.ZO.XI  ,Y|  ,Z|  .NXT.NTLO 
TWITE  161. 161  XO.YO.ZO.XI ,Y|  Zl 
TWITE  161 .171 

CALCIA.ATE  DIRECT  ION  COSINES  TOP  06SERVAI  ION  VECTOR 

PHOXV-SOMT I iXI-XOitt?«IYI -to  I 
pnoxvz-sort I HHOX V • I Z I  -701 
BETA-AATANZI  (VI  -TO  I  .  IX  I  -X0M 
ALPMA-AATAN?!  I  Zl -ZO  I  .  RMOX*  1 

COSALPO-COSIALPHAI  [ 

SALPO-SINI ALPHA  I  F 

CABO-COSALPO-COSIBETAI  ‘ 

SA*0-C0SALPO‘SINIBETA)  ' 

p 

CONVERT  OIHENSIONS  TROH  METERS  TO  WAVELENGTHS  TOR  The  PROGRAM  p 

OX-TACTOP* IXI -XOI /NXV  P 

OY-TACTOP-IYI-YOl/NXV  P 

OZ-TACTOR-IZI-ZOl/NXY  p 

XOB-XO-rACTOR  p 

yob-yo-tactor  p 

ZOB-ZO-TACTOP  P 

OPHOXYZ-PHOXYZ/NXY  P 

PATH-0  P 

SUM-CMPLXIO  .0  l  P 

P 

MAIN  LOOP  TO  CALC  MAR  TIELOS  ALONG  SPtCITlEO  PATH  p 

NXY-NXYt)  P 

00  IV  l-l . NXY  P 

cx-ctwexio.  .o  i  0 

EY-CTWLXIO.  .0  l  p 

EZ-CTWLXIO  .0.1  p 

00  II  J-I.N  p 

S-SIIJI  p 

0-0  p 

XJ-XIJI  p 

yj-yiji  e 


-99- 


2W(JJ  p  59 

CABJ-CAB(j)  p  55 

SASJ-SAB(J)  p  57 

SALPJ-SALPIJ)  p  55 

XIJ-XOB-XJ  p  59 

Y1J-Y0B-VJ  p  70 

HTL--I.  p  7  j 

DO  I  I  IP- 1 .KSVHP  P  78 

p  7j 

zij*zob-zj*ntl  p  74 

ZPaX |J*CASJ«Y I J«SABJ+Z I J*SALPj*Nf L  p  75 

NS-X|J»XIJ*Y|J*Y|J*Z1 J«ZI J  p  75 

NH8-N$-ZP*ZP  p  77 

IF  (NH8.LT . |  E-8QI  GO  TO  8  P  7# 

RM-SQNT  (NH8)  p  79 

GO  TO  ]  P  80 

8  NH-0 .  P  8 1 

3  CONTINUE  P  8? 

SALPN-SALPJ*RfL  P  93 

NHOX-XI  J-CABJ«ZP  p  gH 

NMOY-V | J- $ABJ • ZP  P  85 

NN0Z-7I J-$ALPJ#ZP*Nf L  p  55 

NHAG-SO  r(NHOX*NHOX*NHOY*RHOY«RHOZ«RMOZ»  p  57 

IF  (NHAG.GT  I  E-61  GO  TO  Y  P  88 

NHOX-O.  p  59 

NMOY-0.  p  go 

NHOZ-O.  p  9] 

GO  TO  5  P  98 

H  NHOX-NHOX  /  RHAG  p  93 

RMOY.RMOY/RHAG  p  g* 

WCZ-RHOZ/RHAG  p  95 

5  NNAG-SQNT  (f|J*Y|J*XIJ*X|J)  P  96 

IF  (IF.TC.2)  GO  TO  8  P  97 

If  (NHAG.GT.  |  C-6»  GO  TO  6  p  95 

PX-0.  p  99 

PT“0  p  100 

C'MM.  p  ,0, 

2RSIN-CM>l«l  I  .0.  >  p  io? 

GO  TO  7  p  j  03 

6  PX-YIJ/NHAG  p  )04 

PY— XIJ/NHAG  p  iQ5 

CTM-ZI J/SQNT (RSl  P  1 06 

ZNSIN-*CSORT ( |. -ZRAT I «ZRAT | • 1 |.-CTh*CTmi »  P  |07 

7  NCFS-ICTH-ZNATI *ZRSINI/ ICTH^ZRATI *ZRSINJ  P  1  08 

NCFPS--(ZNAT|«CTM-ZRSIN> / (ZNATI •CTH^ZRSINi  P  |09 

NCFPS-NCFPS-NCFS  p  MO 

8  CONTINUE  Pill 

CALL  CFLD  IB.S.NH.ZP.I.EZNS.EZIS.CNNS.eRIS.CZNC.EZIC.ERNC.CRIC.EZR  P  118 

IK.EZIK.ENNK.ENlK)  P  I  I  3 

IF  (IP.NE  8>  GO  TO  9  P  1  m 

CALL  GN  lEZNS.EZIS.ERRS.ERISi  P  115 

CALL  GN  (EZRC.EZIC.CNNC.CNIC)  P  t  16 

CALL  GN  (CZNK.EZIK.ENNK.ENIK)  p  M7 

9  EZP-EZNK*A|N<  J)-£ZIK*AI  |  (J)«EZRS«8IN(  J) -CZIS’BI  K  Jl*CZNC*CINi  Ji  -E7  P  118 

I  IC#CI  I  ( J)  ♦r  J*ICZRK*A|  I  ( J)*EZIK*A|R(  J)*CZR$*BM  1  j)*EZI5*B  IR( ■  *EZRC  p  !  :9 
2*C! I ( J)*EZIC*CIR( J) )  P  r 80 

£NHO»ERRK*AIR(  J)  -ER I K  •  A  |  I  1  j)  «ERRS*BINt  J)  -ER  I  9*81  I  ( J)*EPRC  *C  JR  ■  J  1  *c  P  i  81 
|NIC*C  I  I  ( J)  *FJ«  <ENRK*A|  1  (J)  »£N|K»a|Riji  ♦  ERRS*  9 1  I  Ui*ERIS*8lRiJ'  *£RR  P  188 

2C*CII < JJ *CRIC*CIN( JI  l  P  , £3 

IF  r  ?  NE .8)  GO  TO  10  P 

CZP»-Ei  '  p  | 85 

ENM0»-Eh.K>  p  t?6 

10  EX-CX*CZP*CABJ*ENHO*NHOX  p 

cv-ey*czp»sabj-enho»nhov  p  ,eg 


-TOO 


c 

c 

c 

c 


13 


c 

c 

c 

c 


CZ*CZ«CZP*$AlBj»Rr L ♦£* HO*«HOZ 
continue 


clLi!  480  cz  A8C  T>€  complex  c-r ielos 

COORDINATE  DIRECTIONS  AT  THE  OtSCRVATl 


IN  THE  CARTESIAN 
ON  POINT. 


C TOT  At -SORT l C A*S tEX » • *e*C ARS i E r » • • c ABS ( E Z  l 

E T - « fcX*C AiO*E Y •SARO«E Z • SAL BO > / C OL AN 

CTANO-CARSIETI 

IE  ( I  CO. II  CO  to  12 

IE  C I  CQ.MXYl  oo  TO  I? 

SUM-SUM*ET 

00  TO  I J 

SUM-SUM*CT/a 

CONTINUE 

XOR-XOROX 

Y0t-V0t*0Y 

zot*zoa«oz 

«ite  Rath. ctano.e total 

patm-rath*ormoxyz 

continue 


••ai/coLAh 


,s  ,Nr£0"*rE0  vu  tm c  trapeeoindal 

»U.£  TO  COWUTt  Tt*  VOLTAGE  DROP  ALONG  THE  SPECIFIED  PATH 


c 

c 

15 

16 

17 

16 

19 


VOROP- CABS (SUM) *ORNOXYZ 
»«ITC  (61,19)  VOROR.NXY 
IE  IWLD.NE  0>  CO  TO  I 
RETURN 


FORMAT  (6FI0  N.?I5) 

^  FORMAT  (I6H.  C-FIELO  FRO*  .JFI0.V.IIM  METERS  TO  .  5F  |  0  ,  .  7„  ME  TER 
P4TH  ,"E,t"s'  t-,*Ncc-’  — 

format  ix?o.s> 

FORMAT  I//.SOH  TW  INTEGRAL  OF  THE  E-rLD  TANGENT  TO  THE  PATH  IS  ! 

MVS. 7M  VOLTS.  .15. JNH  POINTS  USED  TO  EVALUATE  INTEGRAL  .  m 


P  I  ?9 
P  130 
P  131 
R  13? 
R  133 
R  134 
R  135 
R  136 
R  137 
P  138 
P  139 

p  mo 

p  mi 
p  me 
p  ms 
p  m* 
p  ms 
p  m6 

P  147 

p  ms 

p  149 
p  iso 
p  isi 

p  is? 

P  I  S3 
P  154 
P  155 
P  .56 
P  157 
P  1 58 
P  159 

p  160 

P  161 

P  16? 

P  163 

p  164 

P  165 
P  166 
P  167 
P  168 
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c 

c 

c 

c 

c 


c 

c 

c 


I 

? 

3 

c 

c 

c 


4 

5 


ft 


SUBROUTINE  SOLVE  IN.A.R.B.NOIMJ 


SUBROUTINE 
TRIANGULAR 
IN  A.  THE 


TO  SOLVE  THE  MATRIX  EQUATION  LU»X-B  WHERE  L  IS  A  UNIT  L 
MATRIX  AM)  U  IS  AN  l*R£R  TRIANGULAR  MATRIX  BOTH  OF  WHIC 
RMS  VECTOR  B  IS  INRUT  AM)  THE  SOLUTION  IS  RETURNED  THRO 


COW  EX  A.B.V.SUM 
INTEGER  R.RI 

DIMENSION  AfNOIM.NDIHI ,  RlM)lN>,  BtNOIMi 
COMMON  /SCRATM/  V ( 1 00  I 


FORMARO  SUBSTITUTION 

00  3  |>| .N 
Rl-Rl I  » 

VI  I  >-8<RI ) 

BIRI l-Bt I t 
IR! • I ♦  I 

IF  I IRl .GT.Nl  CO  TO  8 

00  J  J-IRI.N 

■  ( Jl-Bl J) -A( J, | I •vi  I  I 

CONTINUE 

CONTINUE 

CONTINUE 


BACKUARO  SUBSTITUTION 

DO  6  It- 1  .S 
I  -N-K*  | 

SUM-CMRLXIO.  ,0.  I 
IBI-IM 

IF  I |P| .OT.NI  00  TO  5 
DO  4  J-  |R|  .N 
SUH-SUN-AI  I  .JMBIJI 
CONTINUE 
CONTINUE 

Blll-rn  n-SUMl/Al  I  .  I  1 

CONTINUE 

RETURN 

EM) 


Q  I 
Q  9 
Q  3 
Q  4 
Q  9 
Q  ft 
Q  7 
Q  0 
0  9 

0  10 
0  I  I 
0  19 

0  13 

Q  14 

0  14 

0  16 
0  17 

Q  18 
Q  19 
Q  90 
Q  91 
Q  99 
0  83 

Q  94 
0  85 

Q  86 
0  87 

Q  88 
Q  89 
Q  30 
0  31 

0  38 

Q  33 
Q  34 
0  35 

0  36 

Q  37 
Q  38 
Q  39 
0  40- 
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C 

c 

c 


3 


•* 

5 

6 


SUBROUTINE  SOLVtCS  IN. NOP. H.  A  .P  .8.NROW.NCOL  i 

SUBROUTINE  SOLVtCS  TAKES  CANE  Of  SOLUTION  Of  PR08LEMS  WITH  SEGMENT 
ON  AXIS  or  NOTATION 

COMPLEX  A.B.SUH 
INTEGER  P 

DIMENSION  AINRQN.NCOLI.  PtNCOLJ.  BlNCOti 

NA-WNOP 

NAP-NA«I 

NT  *NA«M 

CALL  SOLVES  IN.NOP.A.P.B.NNON.NCOLJ 

If  IM.EO.OI  00  TO  S 

DO  a  l-I.M 

IND«I*N 

INOX*  UNA 

SUN-CNPLXIO ,0  I 

00  I  K-I.NA 

SUN* SUN* A I  IND.KI  •|(K) 

•  I  l»CX)-«(  INDXI-SUN 

CALL  SOLVE  IN.AtN*! .MAPI .PtNAPl .0INAP) .NROWl 

DO  9  1*1.  N 

SUH-CMPLXIO.  .0  l 

00  3  K*NAP.NT 

SUN -SUN* A (  |  ,KI*||KI 

DO  H  K*l .NOP 

IM>*I«IK-|»*N 

81  INDI  I  NO)  -SUN 

CONTINUE 

CONTINUE 

return 

END 


R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 


I 

a 

3 

9 

6 

7 

e 

9 

10 
I  I 
1? 
I  3 

m 

15 

16 
I  7 

ie 

I  9 

ao 

3  I 

aa 
a  3 
a** 
as 
?6 
a7 
as 
a9 
30 
31- 
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c  SUiUOUTIK  SOLVES  1 N , NOP .  A ,  P ,  8 , NROM ,  NC  Ql  ) 

c  SUWOUTIIC  SOLVES  SOLVES  AOTaT  IONALL  V  smcmic  HATAICICS 

convex  A.i.V.SUH.S 
INTEGER  P 

COM HON  /SHAT/  $112.19) 

OIXMSION  AINPON.NCOLI ,  PINCOC  )  ,  BINCOU 
COftlON  /SCPATM/  Y(  IOO) 

IP  <NOP.EO. I »  00  TO  5 
r momm-i./mop 

00  1  I ■ I ,N 

00  I  K-I.MOP 
U«I*IK-|  >*N 

1  Y<KJ-8HA> 

SUH-Y1 1 ) 

oo  e  k-?,mop 

2  SUH«SJM*V(K ) 

BU)-SUH*FMOHH 
00  «♦  K-2.N0P 

I  A*  |  ♦  lie- 1  >*N 
SUM-Yfl ) 

oo  3  j*?.nop 

3  ^•SUM*YIJ»«CONJG(SCK,J») 

*♦  •<)A>iSUH«FNOftH 

5  DO  6  KK-I  ,  MOP 
IAMKK-1  )*N«| 

CALL  SOLVE  IN,At|,|Al,P(jAJ.BfiA>  NROW) 

6  CONTINUE 

IP  ‘NOP.EO.il  RETumm 
00  10  l-I.N 
00  7  K» I , MOP 
I  A-  I  » IK- | I *N 

7  V<IO«0I|AI 
SUM-YI I ) 

00  8  K*?.NOP 

8  SUM«$UM*V(K> 

Bl I  * "SUM 

00  10  K-2.N0P 
IA*|«(k-|  mm 

sum* v < 1 1 

00  9  J-2.N0P 

9  S*81»S*JH*VI  Jl  »SlK,  J| 

10  BllAXSUM 
bctupm 
CM) 


5  | 

S  2 
S  3 
S  4 
S  9 
S  6 
S  7 
S  8 
S  9 
S  10 
S  l  l 
S  12 
S  13 

s  m 

S  19 
S  16 
S  17 

s  le 

S  19 
S  20 
S  21 
S  22 
S  23 
S  24 
S  25 
S  26 
S  27 
S  20 
S  29 
S  30 
S  31 
S  32 
S  33 
S  3* 

S  35 
S  36 
S  37 
S  36 
S  39 
S  *0 

s  m 

S  42 

S  *3 

S  44 

S  45 
S  46- 
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C 

c 

c 

c 


function  test  iri.rti  T 

FUNCTION  TEST  is  USCO  OV  INTX  To  CONFUTE  THE  *ElAT|v£  £**0*  OF  THE  T 
NUMERICAL  SUa  INTEGRATION.  ? 

if  «A«siFe>-i.oE-HQ>  e.a.j  I 

TEST-Atsi iFt-rei/ra»  : 

netunn 

test-o.  t 

netunn  7 


I 

s 

3 

4 

3 

6 

7 

0 

9 

10 
I  I- 


t 
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SUBROUTINE  TRIO  <J.  JCOI .  JCO?. OIL  .01*0  y  , 

c  u  i 

C  SURROUT  INC  TRIO  IS  USCO  TO  OCTERMINE  THE  TyPC  Of  JUNCTION  USEO  AT  y  J 

C  T»C  SEGMENT  ENOS.  THREE  TYRES  Of  SEGMENT  END  JUNCTIONS  ARE  ALLOW  U  V 

C  --IF  (CON  IS  0.  SCOHENT  END  IS  OPEN-- IF  ICON  EQUALS  SCOHENT  NUMBER  u  5 

C  THEN  SEG  END  IS  OROLRCCO- - IF  ICON  IS  NCG  THEN  A  CHECK  IS  HADC  FOR  U  6 

C  NUL T I RLE  JUNCTIONS  TRIO  RETURNS  AN  EQUIVALENT  01  STANCE  (Oll.OIKi  u  ? 

C  IR1ICH  IS  USEO  FOR  INTCRPOLAT INC  CURRENTS  FROM  I  SCO  TO  ThC  NEXT.  u  0 

C  II^UTS:  u  9 

C  J  •  SCOfCNT  NUMKR  TO  BE  CHCCKEO  U  10 

C  OUTRUTS:  u  II 

C  JCOI  ■  ICON  VALUE  OF  J-TH  SEG  NEC  ENO  U  I? 

c  jcoe  -  icon  value  of  j-tm  sec  ros  eno  u  u 

C  OIL  •  AVO  01  STANCE  FOR  CURRENT  INTERPOLATION  ON  SCO  NCG  ENO  U  IV 

C  OIK  -  AVO  OISTANCE  FOR  CURRENT  INTERPOLATION  on  sec  pos  end  u  is 

c  U  16 

CWWOW  t\i  N.NR.II  100)  .VI 1 00 1  .21  100  .SI  M  OC  i  .  B I  (  I  00  >  .  AiP»  1 1 0  >  .  BE  T  i  u  |7 

I  100)  .  ICON]  (100).  I  CON?  I  100.  .COL  AH,  NX  y  16 

COMMON  /N/  NCOX.jOXt?S>  .MClX.J|Xi?5  .NC0Z.j0Z<£5»  .NCIZ.  JlZ»?5i  U  |9 

s-shji  u  20 

jcoi-iconuji  u  2 i 

jcoe*icoN?« ji  y  ?? 

C  U  21 

C  . OCCM  SC  GHENT  ICCATIVE  END .  y  ?4 

c  u  as 

IF  IJC0II  I.Z.J  y  ?6 

C  u  21 

C  MULTIPLE  JUNCTION  y  ?0 

C  U  £9 

I  CALL  JUNC  IJ.JCOI  .NC0X.J0X.NC1X.  JlX.Dit  j  U  30 

00  TO  H  u  SI 

C  U  12 

C  OPEN  C  IRCUl  T  -  -FREE  END  --  INTERPOLATE  ONLY  TO  ENO  OF  SEGMENT  U  33 

c  U  3V 

e  on-s/e.o  y  35 

GO  TO  N  u  36 

C  U  37 

C  NORMAL  JUNCTION  COMCCT  ION- -SIMPLE  JUNCTION  OR  GROUNOf  D  SEGMENT  U  28 

C  U  39 

3  OIL"  1 51  (JCOI  l*S)/£-0  u  VO 

C  U  *4  | 

C  . OCCK  SEGMENT  POSITIVE  ENO .  U  v? 

C  u  v3 

H  IF  IJC0«I  5.6.7  y  44 

C  U  v5 

r  MULTIPLE  JUNCTION  u  46 

c  U  47 

5  CALL  JUNC  I J . JCO£ . NCOZ . JOZ .NCIZ.JlZ.DIK  v  40 

GO  TO  B  y  4 g 

C  U  SO 

C  OPEN  C  IRCUl  T-  -FREE  ENO  u  51 

c  u  be 

6  0IK-S/?  0  0  53 

GO  TO  8  y  54 

C  U  55 

C  NORMAL  JLNCTION  CONNECT  ION- -SIMPLE  JUNCTION  ON  GROUNOEO  SEGMENT  u  56 

c  u  S’ 

7  DIK.ISI 1 JC02*"Si/?  0  „  50 

•  CONTINUE  y  59 

RCTlMJ  y  go 

£W  U  61- 
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APPENDIX  B  TABLE  I 


SEGMENT  EXPANSION  COEFFICIENTS  (TAD) 


*  s 

L/LO 


* 

Q 

39 

*  46 

3 

1  00 

0 

-  19 

4 

2  00 

.  30 

0 

5 

3  00 

56 

15 

6 

4  00 

79 

*8 

7 

5  00 

1  .  00 

39 

9 

6  00 

1.19 

49 

9 

7  00 

1  37 

58 

10 

8  QQ 

1  54 

66 

1  1 

9  00 

1 .70 

74 

t  * 

10  00 

1  85 

81 

13 

1  1  00 

<’  00 

88 

14 

1?  00 

2  14 

94 

IS 

13  00 

2  21 

1  00 

16 

14  00 

2  4| 

1  06 

1  7 

15  00 

2  53 

1  1  1 

18 

16  00 

2  65 

1  16 

19 

17  00 

2  77 

1  ** 

*0 

IB  00 

3  89 

1  *6 

*J 

19  00 

3  00 

1  31 

22 

20  00 

3  11 

1  36 

21 

21  00 

3  22 

1  40 

2 4 

2?.  00 

3  3^ 

I  .  44 

*5 

21  00 

3  4* 

1  48 

26 

*4  00 

3  5* 

1  53 

2  7 

26  00 

3  6* 

1  56 

«?8 

26  00 

3  7* 

1  60 

29 

2  7.00 

3  8* 

1  64 

30 

29  00 

3.91 

1  68 

31 

29  00 

4  00 

1  .71 

12 

30  00 

4.09 

1  75 

33 

31  00 

4  .  18 

l  78 

3»* 

32  00 

4  *7 

1  81 

35 

33  00 

4  35 

1  85 

36 

34  00 

4  .  44 

1  88 

37 

35  00 

4  5* 

1 .91 

38 

36.00 

4.60 

1  94 

39 

37,00 

4  69 

1 .97 

40 

38  00 

4.76 

*  00 

41 

39.00 

4  84 

*  03 

4? 

40  00 

4  9* 

*.06 

43 

41.00 

5  00 

*09 

44 

4? .  00 

5.08 

*  1  I 

45 

43.00 

5.  15 

*.  14 

46 

44.00 

5.  *3 

e.  i7 

47 

45  00 

5.30 

*.  19 

48 

46.00 

5.37 

*.** 

4« 

47. pu 

5  45 

*  *5 

50 

48.  OC 

5  5* 

2.21 

5 

6 

7 

8 

-  .49 

-  50 

-  50 

-  50 

-.*6 

-  30 

-  31 

3* 

-  1* 

-  17 

-  20 

-  ** 

0 

-  08 

-  1* 

-  15 

09 

0 

-  06 

-  09 

17 

06 

0 

-  04 

*4 

1  1 

04 

0 

30 

16 

08 

03 

35 

*0 

1* 

06 

40 

*4 

15 

09 

45 

18 

1  1 

49 

31 

*0 

14 

53 

34 

*3 

16 

.  57 

37 

*5 

17 

61 

39 

*7 

19 

64 

4* 

*9 

*1 

67 

44 

31 

** 

70 

46 

33 

*4 

73 

48 

34 

*5 

76 

50 

36 

*7 

79 

5* 

37 

*8 

a* 

.54 

39 

*9 

84 

56 

40 

30 

87 

58 

.4* 

31 

89 

60 

43 

3* 

.91 

61 

44 

33 

94 

63 

45 

34 

96 

64 

.47 

35 

98 

66 

48 

36 

.00 

67 

■  49 

37 

.0* 

69 

50 

38 

04 

.70 

.51 

39 

06 

71 

5* 

40 

08 

73 

53 

40 

.  10 

74 

.54 

41 

1 1 

75 

55 

4* 

13 

76 

56 

43 

15 

77 

.57 

43 

17 

.79 

.57 

.44 

18 

80 

58 

45 

*0 

.8! 

59 

.46 

*1 

8* 

.60 

46 

*3 

83 

.61 

.47 

*4 

84 

6* 

.47 

*6 

85 

6* 

.48 

*7 

•6 

63 

49 

*9 

87 

64 

49 

30 

98 

65 

50 

3* 

•9 

65 

.50 

NU«ee»  jf  St  GKNT 5 •  -N 


9 

:0 

l  1 

1* 

1  3 

14 

15 

16 

1  7 

18 

19 

PO 

-  50 

-  50 

-  50 

•  50 

50 

-  50 

50 

50 

60 

60 

60 

60 

-  33 

-  33 

-  33 

-  34 

34 

34 

34 

34 

34 

14 

14 

14 

23 

-  *4 

*4 

*5 

*5 

*5 

*5 

P5 

P6 

.*6 

P6 

1 6 

-  1  7 

-  18 

19 

19 

19 

PO 

PO 

PU 

PO 

PO 

PO 

1  f 

-  1  1 

1  3 

■  14 

•  14 

15 

15 

lb 

lb 

lb 

lb 

1  J 

07 

•  03 

-  09 

06 

-  10 

-  07 

-  1  1 

08 

1* 

09 

1  0 

1  ) 

10 

•  3 

1  1 

1  3 

1  1 

1  * 

1  » 

1  4 

14 

|  p 

0 

-  03 

-  05 

06 

07 

08 

08 

09 

09 

1  0 

1  0 

1  0 

03 

0 

0* 

Os 

05 

Ob 

u  7 

0  7 

OH 

08 

08 

09 

05 

’* 

0 

0* 

0  3 

04 

06 

Ob 

Ob 

0  7 

0  7 

07 

07 

'•  H 

0* 

0 

0* 

0  3 

04 

04 

06 

Ob 

06 

06 

09 

?6 

03 

01 

0 

OP 

0  3 

0  3 

04 

06 

06 

06 

1  1 

i'  7 

05 

03 

01 

0 

n  i 

0,’ 

0  3 

04 

04 

04 

1 2 

.'9 

06 

04 

0* 

01 

0 

01 

OP 

0  3 

03 

04 

1  4 

’  0 

07 

05 

03 

0* 

0  1 

0 

01 

OP 

OP 

03 

15 

,  1 

1  3 

08 

06 

04 

01 

OP 

01 

0 

01 

UP 

OP 

1  7 

09 

07 

05 

04 

03 

UP 

01 

0 

01 

0* 

1  8 

'  * 

10 

OB 

06 

05 

03 

OP 

01 

01 

0 

01 

1  9 

1  1 

09 

07 

05 

04 

03 

OP 

01 

01 

0 

*0 

'■  f 

1* 

10 

OB 

06 

06 

04 

0  3 

OP 

01 

01 

*1 

1 

1  3 

10 

08 

07 

06 

04 

03 

OP 

OP 

01 

22 

a 

14 

1  1 

09 

o; 

06 

05 

04 

01 

0* 

01 

21 

8 

15 

1* 

10 

08 

06 

05 

04 

0.3 

03 

0* 

*4 

:  9 

15 

1  3 

10 

08 

07 

06 

05 

04 

03 

OP 

*5 

r  0 

16 

13 

I  1 

09 

07 

06 

05 

04 

03 

03 

*6 

t*  i 

P* 

1  7 

14 

1  1 

10 

08 

07 

06 

05 

04 

03 

21 

.  18 

14 

1* 

10 

08 

07 

06 

05 

04 

03 

*8 

.  22 

18 

15 

1  3 

10 

09 

O'* 

06 

05 

04 

04 

*8 

21 

19 

16 

1  3 

1 1 

09 

08 

07 

06 

06 

04 

*9 

*4 

19 

16 

1  3 

1 1 

.  10 

08 

07 

06 

06 

04 

30 

*4 

*0 

1  7 

14 

1* 

.  10 

09 

07 

06 

05 

05 

31 

*5 

*0 

17 

14 

1* 

10 

09 

08 

07 

06 

05 

31 

*5 

*1 

18 

15 

1  3 

1 1 

09 

.08 

07 

06 

.05 

3* 

*6 

22 

18 

15 

1  3 

1 1 

10 

08 

07 

06 

06 

33 

21 

** 

18 

16 

1  3 

.  1* 

10 

09 

08 

07 

06 

33 

21 

*3 

19 

16 

14 

1* 

10 

09 

08 

07 

.06 

34 

.29 

*3 

19 

16 

14 

1* 

1 1 

09 

08 

07 

06 

35 

29 

*3 

*0 

17 

14 

1  3 

.  1 1 

10 

08 

07 

07 

35 

29 

*4 

*0 

17 

15 

13 

1 1 

10 

09 

08 

07 

36 

29 

*4 

*1 

18 

15 

13 

l* 

10 

09 

08 

07 

36 

.  30 

*5 

*r 

18 

15 

.  13 

.  1* 

.  10 

09 

08 

07 

37 

30 

*5 

?i 

18 

16 

14 

1* 

.  1 1 

09 

08 

07 

37 

31 

*6 

22 

.  19 

16 

14 

1* 

1 1 

10 

09 

08 

38 

31 

*6 

22 

19 

16 

.  14 

1  3 

.  1 1 

10 

09 

08 

39 

3* 

*6 

22 

19 

.  17 

15 

13 

1 1 

10 

09 

08 

39 

3* 

21 

23 

*0 

17 

15 

1  3 

1* 

10 

09 

08 

39 

3* 

.21 

23 

*0 

17 

.  15 

13 

.  1* 

1 1 

09 

08 

40 

33 

29 

23 

*0 

18 

15 

.  14 

.  1* 

1 1 

10 

09 

40 

33 

29 

*4 

*0 

18 

16 

14 

1* 

1 1 

10 

.09 

